Timer_Schleife

[chicky]

Delphi-Quellcode:

Sprung1 : {...neuen Wert holen...}

        if ((SecondOf(StrToTime(WLi.Strings[1])) mod 60) = 0) and    
                 ((MinuteOf(StrToTime(WLi.Strings[1])) mod 10) = 0) then   //volle 10 Minuten
               begin
                   {...in DB schreiben...}
               end
         else           //noch keine vollen 10 Min erreicht
               begin
                  delay(5000);   //Zeitverzögerung, um nächsten Messwert zu checken
                  goto Sprung1;
               end;

Funktioniert insofern, als dass z.B. um 14:20:00 ein Eintrag in die DB vorgnommen wird. Aber der gleiche 2mal. Wie kann das kommen?

[edit=mkinzler]Tag korrigiert Mfg, mkinzler[/edit]