Funktion regelmäßig ausführen lassen, aber wie?

[Waldteufel]

Hi.

Du könntest es so versuchen:

Delphi-Quellcode:

procedure Ausführen;
var
  Timer : TTimer;
begin
  Timer := TTimer.Create(self);
  Timer.Interval := 10000; // 10 Sekunden
  Timer.Enabled := true;
  Timer.OnTimer := @MachWas;
end;

Mit Sleep bzw. Sleep + Uhrzeit prüfen geht es bestimmt.

Etwas Pseudo-Code:

Code:

while nichtabgebrochen do
begin
  Sleep(5000);
  MachWas();
end;

bzw.

Code:

while nichtabgebrochen do
begin
  Sleep(5000);
  If Now() = 15:00 then MachWas();
end;