markieren

Delphi-Quellcode:

  MyTimer := TTimer.Create(nil);
          MyTimer.Enabled := True;
          MyTimer.Interval := 20000; // alle $$$ Millisekunden (= $$$ Minuten) die Datenbank aktualisieren
          MyTimer.OnTimer := DF;

zusammenfalten · markieren

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.?

Du weißt schon, dass es beim Aufruf von Delay passieren kann, dass der Timer auslöst, und du wieder in die Timerprozedur reinkommst?

Btw.: Du hhast möglicherweise eine Endlosschleife ...

Ach und: goto's machen das Nachvervolgen des Programmablaufs nicht immer einfacher (um nicht zu sgaen: nahezu unmöglich) und sollten daher äußerst selten und wohlüberlagt eingesetzt werden.

Also zur Universalfrage: Was willst du erreichen, wahrscheinlich gibt's bessere Alternativen als den "Code"

Zitat:

Du weißt schon, dass es beim Aufruf von Delay passieren kann, dass der Timer auslöst, und du wieder in die Timerprozedur reinkommst?

Nein, das wusste ich nicht. Und nun?

Zitat:

Btw.: Du hhast möglicherweise eine Endlosschleife ...

Wie kommst du darauf?

Zitat:

Was willst du erreichen

Ich möchte, dass bei Programmstart etwas in eine DB geschrieben wird und dann alle 20 Sekunden einer neuer Eintrag hinzukommt (z.B.)

Delay() wartet aktiv.
Entwder 2 Timer verwenden oder Intervall entsprechend umswitchen

Zitat von chicky:

... Ich möchte, dass bei Programmstart etwas in eine DB geschrieben wird und dann alle 20 Sekunden einer neuer Eintrag hinzukommt (z.B.)

Dann schreibe Dir doch eine Procedure welche die Einträge in der DB vornimmt.
Diese rufst Du dann beim Programmstart (on create oder so) auf.
Dann nimmst Du einen Timer mit einem 20 Sekunden intervall und rufst in seiner OnTimer Methode die Procedure zum schreiben in die DB auf.

Hi
was mir auch noch aufgefallen ist, dass du auch True und False in deiner if-Anweiseung prüfst.
Das macht man nicht! Guck dir mal dieses Tutorial an: Klick
und besonders diese Seite des Tutorials: Klick

Danke dir Fabian. Ich bin halt noch relativer Anfänger. Aber vielen Dank

Zitat:

..oder Intervall entsprechend umswitchen

Wie meinst du das?

im onTimer Intervall verkürzen

Das hab ich grad schon gemacht und teste jetzt. Sieht bisher gut aus. Hab das alles nochmal umgemodelt bzw. auseinader genommen und u.a. Fabians RatschlagLink befolgt.

zusammenfalten · markieren

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]