trystrtodatetime

[Dreas]

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?