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:

[Markus]

Wenn du auf Nummer sicher gehen willst, dann überprüfe es mit formatdatetime():

Delphi-Quellcode:

if formatdatetime('hh:mm',now)='13:06' then do 
begin
   if fileexists('d:\aaa.txt') then deletefile('d:\aaa.txt');
end;

[Vader]

hallo,

danke für eure hilfe, hab das von markus getestet und es klappt wunderbar
jetzt hätte ich noche eine frage wie würde der code ausschauen wenn
ich jetzt noch ein datum auch noch möchte, also zb: 20.08.2004 12:10

mfg vader

[MrKnogge]

einfach noch dein Datum mit DateToStr(Now) vergleichen.

[Vader]

hallo,

kannst du mir einen code posten, hab keine ahnung wie ich diese beiden abfragen datum und zeit zusammen hängen soll ?? :oops:

mfg vader

[nailor]

was ist bei der >= methode, wenn man 1ms vor mitternacht löschen will?

[MrKnogge]

Mit AND

Delphi-Quellcode:

if (formatdatetime('hh:mm',now)='13:06') and (DateToStr(Now) = '14.08.2004') then do 
begin 
   if fileexists('d:\aaa.txt') then deletefile('d:\aaa.txt'); 
end;

[Vader]

hallo,

herzlichen dank :P

mfg vader

[Markus]

Geht auch mit formatdatetime(). Schau dir dazu mal die Delphi-Hilfe der Funktion an. Die Funktion hat mehrere Parameter...