Delphi-Quellcode:
MyTimer := TTimer.Create(
nil);
MyTimer.Enabled := True;
MyTimer.Interval := 20000;
// alle $$$ Millisekunden (= $$$ Minuten) die Datenbank aktualisieren
MyTimer.OnTimer :=
DF;
Delphi-Quellcode:
procedure TMy.DF(Sender: TObject);
{var} ...
begin
{TString.Create usw.} ...
Sprung1:
WLi.DelimitedText := Werte;
with t do //t : TTable
begin
if (check3 = true) and (check2 = false) then //check2 und check3 sind so zu Beginn definiert
begin
if ((SecondOf(StrToTime(WLi.Strings[1])) mod 60) = 0) then goto Sprung2 else
begin
delay(4000);
goto Sprung1;
end;
end;
Sprung2: begin
ShowMessage(WLi.Strings[1]);
check2 := true;
check3 := false;
delay(4000);
end;
end;
end;
{alles wieder Free usw.} ...
end;
Das Problem hierbei ist, dass er den Timer zu ignorieren scheint. Er soll doch am Anfang gleich den Wert ausgeben und dann nur alle 20 Sekunden mit kleiner Verzögerung (delay(4000)). Aber er führt es ständig aus (ca. alle 3-4 Sekunden). Kann das mal jemand probieren evtl.?