Nach erreichen der Zeit --> löschen ?

[Sharky]

Zitat von devnull:

...@Sharky: Wie mit >=??? Das sind doch Strings... Und das Intervall is doch eigentlich auch egal, wenn die Sekunde nicht mehr übereinstimmt, oder

Hai devnull,
damit wollte ich daruf hinweisen das er seinen String mit der Zeit in ein TDateTime umwandeln soll und dann mit >= prüft.
Das Intervall ist schon wichtig. Angenommen er hat ein TimerIntervall von 5000 eingstellt würde dieser Code nur gehen wenn die if abfrage genau um 13:06:00 erfolgt.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if TimeToStr(NOW) = '13:06:00' then   //@Matze: nur die Minuten überprüfen, die letzten 3 Stellen des TimetoStr abschneiden
     deletefile('d:\aaa.txt');          //event. Backslash noch
end;

So wäre es meiner Meinung nach besser:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 stf : String;
begin
  stf := ShortTimeFormat;
  stf := 'hh:mm:ss';
  if (StrToTime('13:06:00') >= now) then
  begin
    // Mache etwas;
  end;
  ShortTimeFormat := stf;
end;