![]() |
Nach erreichen der Zeit --> löschen ?
hallo,
hab da einen code aufgeschnappt der bei mir aber nicht funzt ! er soll nach erreichen einer bestimmten zeit ein file löschen
Code:
was ist da falsch ??
procedure TForm1.Timer1Timer(Sender: TObject);
begin if TimeToStr(NOW) = '13:06' then begin deletefile('d:/aaa.txt'); end; end; mfg vader |
Re: Nach erreichen der Zeit --> löschen ?
Du muss
Stunden : Minuten : Sekunden angeben, nicht nur Stunden : Minuten |
Re: Nach erreichen der Zeit --> löschen ?
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. |
Re: Nach erreichen der Zeit --> löschen ?
Zitat:
|
Re: Nach erreichen der Zeit --> löschen ?
Zitat:
Zitat:
|
Re: Nach erreichen der Zeit --> löschen ?
Zitat:
Delphi-Quellcode:
So in der Art mal rumgefuddelt...
for i := 1 to 5 do
s := s + TimeToStr[i]; if s = '13:06' then ... //Also werden Stunden und Minuten überprüft |
Re: Nach erreichen der Zeit --> löschen ?
Er meinte, du sollst statt auf der einen Seite Millisekunden hinzuzufügen, sie auf der anderen Seite einfach wegnehmen.
gruss |
Re: Nach erreichen der Zeit --> löschen ?
Zitat:
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:
So wäre es meiner Meinung nach besser:
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;
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; |
Re: Nach erreichen der Zeit --> löschen ?
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. |
Re: Nach erreichen der Zeit --> löschen ?
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:26 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz