Hi,
es gibt ja eine function die überprüft, ob eine variable ein gültiges datum enthält und true oder false wiedergibt.
function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean; overload;
Irgendwie bekomme ich das nicht richtig eingebaut.
So hab ich probiert:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if TryStrToDateTime(a):=false then
label1.Caption:=('Format ungültig'+#1310#+'Datum.txt überprüfen!');
else
label1.caption:=(datetimediff(strtodatetime(a), ((now))));
end
end;
Hab ich da den total falschen Ansatz?