zeitstempel vergleichen [gelöst]

[ims]

hi
ich möchte zwei Tdate variablen vergleichen um heraus zufinden, ob eine datei nach dem programmstart geändert wurde. -> habe in einem ini-file ein tdate datum und lese den zweiten wert aus dem zu überprüfenden file. wenn das überprüfende file jünger ist als der wert aus dem ini-file, dann soll ... ne meldung kommen.

danke im voraus!

gruss, ims

[Mario]

Hallo,

was ist Deine Frage? TDate-Variablen kannst Du wie Zahlen vergleichen:
if Date1 < Date2 then ...

[ims]

also, möchte den zeitstempel zweier dateien vergleichen und herausfinden, welche die neuere datei ist(mit datum + zeit). das mit < > funzt nicht so richtig... gibts noch ne andere variante um das zu lösen?

[Sharky]

Zitat von ims:

....(mit datum + zeit)....

Wenn Du datum und Zeit vergleichen möchtest brauchst Du eine Variable vom Typ TDateTime und nicht vom Typ TDate.

[Mario]

Schreibe doch bitte ein wenig ausführlicher. "Funzt nicht" sagt einem einfach gar nix und wir können nur raten. Das macht keine Spaß. Auch ein wenig Code, der bei Dir nicht tut, wäre hilfreich. Klar könnten wir Dir ein Beispiel ausarbeiten, welches das Datum zweier Dateien ausliest und vergleicht, aber dazu habe ich im Moment keine Lust zu und Du würdest nachher nicht wissen, warum's tut.

[ims]

danke sharky, das war mein problem...

@mario: so siehts aus... nun tuts, danke trotzdem.

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;
  if form1.Label1.Caption < form1.Label2.Caption then
   showmessage('1. File neuer')
  else
   showmessage('1. File älter');
end;

[Tom]

Funktioniert nicht wirklich. Zeiten vergleicht man als Zahl und nicht als String.

[Mario]

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;

[ims]

habs auch geändert. direkter variablenvergleich ist einfacher und schneller.

Delphi-Quellcode:

 if dt1 < dt2 then
  showmessage(datetimetostr(dt1) + ' ist älter als ' + datetimetostr(dt2))
 else
  showmessage(datetimetostr(dt1) + ' ist neuer als ' + datetimetostr(dt2));