Nach erreichen der Zeit --> löschen ?

[Vader]

hallo,

hab da einen code aufgeschnappt der bei mir aber nicht funzt !
er soll nach erreichen einer bestimmten zeit ein file löschen

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if TimeToStr(NOW) = '13:06' then
begin 
  deletefile('d:/aaa.txt'); 
end;
end;

was ist da falsch ??

mfg vader

[Matze]

Du muss

Stunden : Minuten : Sekunden

angeben, nicht nur

Stunden : Minuten

[Sharky]

Hai Vader,

Du solltest auch unbedingt auf >= prüfen. Wenn der Timer im falschen Moment auslöst (1 ms nach deiner eingestellten Zeit) würde die Datei nie gelöscht werden.

[devnull]

Zitat:

Zitat von Vader

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;

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

[Matze]

Zitat:

Zitat von devnull

@Matze: nur die Minuten überprüfen, die letzten 3 Stellen des TimetoStr abschneiden

:?:

Zitat:

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 :?:

Wenn z.B. das intervall auf 3 Sek steht, kann das ganz anders aussehen, nur beim Intervall von 1 Sek, sollte nichts schief gehen.

[devnull]

Zitat:

Zitat von Matze

Zitat:

Zitat von devnull

@Matze: nur die Minuten überprüfen, die letzten 3 Stellen des TimetoStr abschneiden

:?:

Das war so gemeint:

Delphi-Quellcode:

  for i := 1 to 5 do 
      s := s + TimeToStr[i];
  if s = '13:06' then ... //Also werden Stunden und Minuten überprüft

So in der Art mal rumgefuddelt...

[MrKnogge]

Er meinte, du sollst statt auf der einen Seite Millisekunden hinzuzufügen, sie auf der anderen Seite einfach wegnehmen.

gruss

[Sharky]

Zitat:

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;

[Matze]

achso war des gemeint... :roll:

@Sharky: Wenn's gelöscht ist, möchte deine Prozedur es aber bestimmt nochmal löschen und nochmal... ;)

Nachtrag: Oder mit FileExists erst überprüfen.

[Sharky]

Zitat:

Zitat von Matze

..@Sharky: Wenn's gelöscht ist, möchte deine Prozedur es aber bestimmt nochmal löschen und nochmal..

Darum steht da ja auch nur "Mache Etwas" ;-) Und dazu gehört unter anderem die Abfrage ob die Datei überhaupt existiert und, je nach Anwendung, auch das daktivieren des Timers :stupid: