Einzelnen Beitrag anzeigen

Mario

Registriert seit: 7. Apr 2003
567 Beiträge
 
Delphi 2006 Enterprise
 
#8

Re: zeitstempel vergleichen [gelöst]

  Alt 16. Sep 2003, 09: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
  Mit Zitat antworten Zitat