Hallo,

ich möchte meinem Timer 10 Minuten Wartezeit zuweisen, d.h. nach 10 Minuten soll eine Prozedur sich wiederholen. Allerdings weiß ich nicht, wie ich den Timer setzen soll.

Geht's vielleicht auch damit

markieren

Delphi-Quellcode:

procedure warte(aMillisecs: Cardinal);
var jetzt: Cardinal;
begin
  jetzt := GetTickCount
  while GetTickCount < (jetzt + aMillsecs) do
    Application.ProcessMessages;
end;

irgendwie?

Timer1.Interval := 600000; // = 1000ms = 1s * 60s = 1min * 10 = 10min

Schon klar, soweit war ich auch schon.

Aber wie frage ich das dann ab?

markieren

Delphi-Quellcode:

if Timer.Interval = 600000 then
  // ...

Ist das so korrekt?

Zitat von Kompon Ente:

Schon klar, soweit war ich auch schon.

Aber wie frage ich das dann ab?

markieren

Delphi-Quellcode:

if Timer.Interval = 600000 then
  // ...

Ist das so korrekt?

Nein. Nach 600000ms wird das OnTimer-Event ausgelöst. Du musst also nur den entsprechenden Code ins OnTimer schreiben.

Okay, und wie frage ich nun ab, wann der Timer bei 600000 Millisekunden ist?

Der Timer läuft von 60000 rückwärts, bei 0 wird onTimer ausgelöst. Dann steht der Timer wieder bei 60000 und läuft wieder rückwärts usw.

Nach 600000 ms wird automatisch das OnTimer-Event automatisch aufgerufen, da musst du dich nicht drum kümmern.

Sch... zu langsam!

@Janosch: Eine dringende Bitte: Lies Dir die Hilfe zu TTimer durch.

Alle X Millisekunden (in Deinem Fall X = 600000) löst der Timer sein OnTimer-Ereignis aus und führt den Code aus, der mit diesem Ereignis verbunden ist. Und das macht der Timer genau so lange, wie seine Eigenschaft 'enabled' auf 'true' steht.

Es soll aber nicht das OnTimer-Event aufgerufen werden, sondern eine andere Prozedur.