Registriert seit: 7. Apr 2003
567 Beiträge
Delphi 2006 Enterprise
|
Re: zeitstempel vergleichen [gelöst]
16. Sep 2003, 10:45
Besser so:
Delphi-Quellcode:
var temp : integer;
var dt : TDatetime;
begin
if form1.OpenDialog1.Execute then
begin
form1.Edit2.Text := form1.OpenDialog1.FileName;
temp:= FileAge(form1.Edit2.Text);
dt:= FileDateToDateTime(temp);
form1.Label2.Caption := DateTimeToStr(dt);
end;
// statt StrToDateTime(form1.Label1.Caption)
// besser die echte DateTime-Variable einsetzen
if StrToDateTime(form1.Label1.Caption) < dt then
showmessage('1. File neuer')
else
showmessage('1. File älter');
end;
Schöne Grüße,
Mario Noack
|