Entwickler-Ecke

Sonstiges (Delphi) - Textfeld mit aktuellem Datum belegen


jamany - So 16.03.03 13:03
Titel: Textfeld mit aktuellem Datum belegen
Wie kann ich ein Textfeld automatisch beim Aufruf des Formulars mit dem heutigem Datum mit dem Format dd.mm.yyyy füllen. Änderungen sollen dann aber möglich sein.


hansg - So 16.03.03 13:35
Hi,
das Beispiel zeigt die variable "Today" in einem Edit an:

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
  Datum    : TDateTime;      // Datum
  dd       :  Integer;       // Tag
  mm       :  Integer;       // Monat
  d1       :  String;        // Datum <10
  m1       :  String;        // Monat <10
  Today    :  String;        // aktuelles datum
begin
  datum:=now;
  DecodeDate(datum, Year, Month, Day);
  dd:= day;
  mm:= Month;
  if dd < 10 then d1:='0' else d1:='';
  if mm < 10 then m1:='0' else m1:='';
  today:=d1 + IntToStr(dd) + '.' + m1 + IntToStr(mm) + '.' + IntToStr(Year);
  edit1.text := today;
end;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!