Probleme mit DB und Schleife

[aaaaaaaaaa_10]

Delphi-Quellcode:

if SameTime(StrToTime(WL.Strings[1])-StrToTime(MyTime),StrToTime('00:10:00')) = true then
                  begin                                                         
                    t.Open;
                    t.Append;
                    for i := 0 to WL.Count - 1 do
                    begin
                      t.Fields[i].Value := WL.Strings[i];     //Einträge in DB einfügen
                    end;
                    t.Post;
                    t.Close;
                    time := WL.Strings[1];
                  end;

Hab ein Problem (merkwürdiges):
Ich will alle 10 Minuten etwas in eine Datenbank schreiben (über t : TTable).
Das schreiben an sich funktioniert,aber das mit dem Intervall nicht so richtig. er schreibt 2mal was in die datenbank (z.B. um 12:23:34 und dann um 12:33:34), aber dann nicht mehr. Lasse ich ihn alle 5 Minuten schreiben, macht er es durchgängig. Komisch oder?

[mkinzler]

Warum wandelst du Zeitwerte nach String um sie zwischenzuspeichern?

[aaaaaaaaaa_10]

Wo mache ich TimeToStr?

[mkinzler]

Irgendwo schreibst du das ja in die StringListe

[aaaaaaaaaa_10]

Was schreibe ich irgendwo in welche StringListe? Kannst du bitte in ganzen Sätzen antworten, sonst weiß ich nicht was du meinst :gruebel:

[mkinzler]

WL.Strings[] ist ja wohl eine StringListe

[aaaaaaaaaa_10]

Ja, ist es.

Delphi-Quellcode:

WL.Delimiter := #9;
          WL.DelimitedText := Werte;

Werte ist ein String, in dem die Daten stehen.

[mkinzler]

Ich würde nicht auf Gleichheit sondern auf > prüfen.

[divBy0]

Sollte dafür nicht ein TTimer besser geeignet sein?

[aaaaaaaaaa_10]

Zitat:

Ich würde nicht auf Gleichheit sondern auf > prüfen.

Warum das?