Hallo zusammen,
sitze momentan an einem anderen Projekt, bei dem ich momentan nicht weiter komme. Das Programm soll das Windows Datumsformat auslesen und überprüfen, ob es mit dem Datumsformat der Komponente "AdsSettings" übereinstimmt, wenn nicht soll dem Ads Datumsformat das Windowsdatumsformat zugewiesen werden.
mfg
sitze momentan an einem anderen Projekt, bei dem ich momentan nicht weiter komme. Das Programm soll das Windows Datumsformat auslesen und überprüfen, ob es mit dem Datumsformat der Komponente "AdsSettings" übereinstimmt, wenn nicht soll dem Ads Datumsformat das Windowsdatumsformat zugewiesen werden.
PHP Code:
procedure TForm1.btnDatumClick(Sender: TObject);
var
aDatum: TDateTime;
begin
begin
aDatum:= StrToDate(ShortDateFormat); <-- hier knallt er (Screen im Anhang)
if not (AdsSettings1.DateFormat = (DateToStr(aDatum))) then
begin
ShowMessage('Datumsformat wird geändert');
AdsSettings1.DateFormat:='dd.mm.yyyy';
end
else
ShowMessage('Datumsformat stimmt');
end;
end;
mfg
Comment