Edit feld eigenschaft

[poterp]

Hallo noch mal,
wie gesagt, ich benutze Delphi 7 und ich habe eine andere Problem und zwar ich möchte in einem EDIT Feld Datum eingeben z.b: 12.12.05

[Matze]

Zitat:

Zitat von poterp

Hallo noch mal,
wie gesagt, ich benutze Delphi 7 und ich habe eine andere Problem und zwar ich möchte in einem EDIT Feld Datum eingeben z.b: 12.12.05

Und was möchtest du nun von uns wissen?

[pacman1986]

Wahrscheinlich wie das geht ....

Delphi-Quellcode:

  Edit1.Text := DateToStr(Date());

[poterp]

Hallo,
ich wollte wiessen, das Quellecode auszieht, wenn ich in EditFeld nur Zahlen eingeben möchte in der format zb(12.12.2006) und es muss nur zahlen eingegeben und nicht Buchstaben.

danke in Voraus

[CG2003]

Wie wäre es dann mit einem TMaskEdit? Da kannst Du verschiedene Masken für die Eingaben vordefinieren. Unter anderem auch Datumseingaben.

[poterp]

Delphi-Quellcode:
Edit1.Text := DateToStr(Date());
dies Funktioniert
Danke pacman1986
Aber dies gibt nur das Aktuell Datum, und wenn ich das Datum von gestern eingeben möchte, wie soll mein Quellcode Aussehen??
Danke in Voraus

[Matze]

Ein Datum kannst du ja ganz normal so zuweisen:

Delphi-Quellcode:

Edit1.Text := '30.04.1985';

Oder wie erwäht kannst du ein MaskEdit verwenden und eine Maske für's datum einstellen, dann kann man nur Einträge vom Typ xx.xx.xxx eingeben:

Delphi-Quellcode:

MaskEdit1.EditMask := '!00/00/0000';

[pacman1986]

Willst du das das Programm erkennt was gestern war oder jedes beliebige datum eingeben denn dann lohnt sich TDateTime insofern nicht wenn du nicht damit arbeitest.
Da würde ich mich Matze anschließen.
wenn du mit dem Datum weiterarbeiten willst dann sag was wenn nicht benutz doch einfach string ...

ich mach es trotzdem mal mir is grad langweilig

Delphi-Quellcode:

var Datum : TDateTime;
begin
  Datum := encodeDate(Jahr, Monat,Tag);
  edit1.Text := DateToStr(Datum);
end;

wenn du das ganze wieder rückgängig machen willst dann musst du

Delphi-Quellcode:

var Jahr,monat,tag:Word;
begin
  DecodeDate(Now(),Jahr,monat,tag);
  edit1.Text := IntToStr(Jahr) ;
end;

hier kannst du die einzelnen Teile des Datum betrachten und editiern (indem du es wieder encodest).....

[poterp]

Hello again :)
diese ganzen Quelle geben mir das Aktuell Datum zurück aber ich möchte gern ein Beliebige Datum angeben, es kann Vergangenheit oder zukunft sein
Danke In voraus

[Sharky]

Hai poterp,

warum verwendest Du für die Datumseingabe nicht einen TDateTimePicker?
Der macht genau das was Du möchtest.