Timer_Schleife

[Zoot]

Zitat von jfheins:

Also wenns wirklich immer schön die volle Minute sein soll, würde ich das so machen:

Delphi-Quellcode:

// OnTimer
begin
if (MinuteOf(Now) mod 10 = 0) and SecondOf(now) = 0 then // runde 10 Minuten, Bedingung nochmal überprüfen
begin
  // Machwas
  Timer1.Interval := 570*1000; // 9 Minuten und 30 Sekunden
end
else
begin
  Timer1.Interval := 400;
// 0,4 Sekunden, damit sollte sichergestellt sein
// dass es ein Timer-Event gibt, wenn die Sekunden 0 sind.
end;
end;

Aber ist nur so ne Idee

Hier solltest du aber noch Sorge tragen, dass 3 Timerevents kommen können, während die Sekunde 0 ist.
[Edit: ok ok, das kann bei dir gar nicht passieren]