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]