hallo,

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

markieren

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

Du muss

Stunden : Minuten : Sekunden

angeben, nicht nur

Stunden : Minuten

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.

Zitat von Vader:

markieren

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

Zitat von devnull:

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

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.

Zitat von Matze:

Zitat von devnull:

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

Das war so gemeint:

markieren

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...

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

gruss

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.

markieren

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:

zusammenfalten · markieren

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;

achso war des gemeint...

@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.

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