Mehrere Zeitabfragen im Timer, wie?

[Codix32]

Hallo,

kann man in einem Timer mehrere Zeitabgleiche machen?

Nehmen wir an ich habe eine Listbox mit mehreren Items:

13:50 Blabla
13:50 Herd ausschalten
13:52 Text
14:00 Text
15:33 Text
16:10 usw

Ist zum Beispiel 13:50 erreicht, soll eine Meldung erscheinen.
Wenn ich Items in ein dynamisches Array einlese, kann ich im Timer die Zeiten in einer Schleife abfragen?
Oder gibt es eine Alternative zur Timer Komponenten?

[zeras]

Du kannst durch die Listbox durchsteppen mit Listbox.items[x]. Anzahl mit items.count.
Vielleicht hilft das.

[Medium]

Ich verstehe hier das Problem nicht so wirklich muss ich gestehen. Um die konkrete Frage zu beantworten: Ja, man kann natürlich im Timer-Event auch eine Schleife nutzen. Das hätte man aber auch ausprobieren können. Ich vermute hier aber eigentlich eine andere Fragestellung, nur leider fehlt diese und wir müssten raten.

[Codix32]

Zitat von Medium:

Ich verstehe hier das Problem nicht so wirklich muss ich gestehen. Um die konkrete Frage zu beantworten: Ja, man kann natürlich im Timer-Event auch eine Schleife nutzen. Das hätte man aber auch ausprobieren können. Ich vermute hier aber eigentlich eine andere Fragestellung, nur leider fehlt diese und wir müssten raten.

In etwa so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  aTime,bTime: TDateTime;
  str:string;
begin
 aTime := Time;

 {Timerintervall ist 1000 Kann ich hier die gesamten Intems in einer Sekunde durchgehen?}
 for i := 0 to (Listbox1.count-1) do
   begin
     bTime:= TrimLeft(copy(Listbox1.Items[i],1,8)); //<- (13:50:00  Blabla)
     If aTime >= bTime then
       begin
         inc(iFlag); //<- global
           if iFlag = 1 then 
           begin
            Label4.Caption:= Listbox1.items[i];
            iFlag:=0;
           end;
       end;
   end;
end;

Gibt es da keinen besseren Ansatz?

[Sir Rufo]

Ja es gibt einen besseren Ansatz.

• Benutze die Listbox ausschliesslich zur Anzeige
• Merke die einzelnen Zeitpunkte in einer Liste
• Mit dieser Liste kannst du die Anzeige für die Listbox füttern
• Gehe durch die Liste und prüfe ob ein Zeitpunkt <= der aktuellen Uhrzeit ist und die letzte Signalisierung < der aktuellen Zeit (Datum+Zeit)

Wegen der Zeitdauer (geht das innerhalb einer Sekunde) brauchst du dir eigentlich keine Sorgen machen (wenn du zwischendurch nicht noch die Quadratur des Kreises berechnen willst).

[Namenloser]

StrToTime?

[Codix32]

Zitat von Sir Rufo:

Ja es gibt einen besseren Ansatz.

• Benutze die Listbox ausschliesslich zur Anzeige
• Merke die einzelnen Zeitpunkte in einer Liste
• Mit dieser Liste kannst du die Anzeige für die Listbox füttern
• Gehe durch die Liste und prüfe ob ein Zeitpunkt <= der aktuellen Uhrzeit ist und die letzte Signalisierung < der aktuellen Zeit (Datum+Zeit)

Wegen der Zeitdauer (geht das innerhalb einer Sekunde) brauchst du dir eigentlich keine Sorgen machen (wenn du zwischendurch nicht noch die Quadratur des Kreises berechnen willst).

Ich grüße Dich Sir Rufo,

Also das Formular soll nach dem Start in der Taskleiste liegen.
Wenn in der Liste zum Beispiel '13:00 Putin wegen zu hohem Gaspreis anrufen' steht, soll ein Fenster oder eine MessageBox um 13:00 Uhr auf dem Desktop erscheinen und diese Meldung oder wenn es mehrere 13:00 Ereignisse gibt, diese anzeigen.

[Codix32]

Zitat von Namenloser:

StrToTime?

Ok:
   bTime:= StrtoTime(TrimLeft(copy(Listbox1.Items[i],1,8))); //<- (13:50:00 Blabla)

[Olli73]

Wenn du alle aktuellen Ereignisse abgearbeitet hast, dann könntest du auch einfach prüfen, wann das nächste Ereignis eintritt und das Timerintervall entsprechend setzen.

Gruß
Olli

[Sir Rufo]

Zitat von Codix32:

Ich grüße Dich Sir Rufo,

Also das Formular soll nach dem Start in der Taskleiste liegen.
Wenn in der Liste zum Beispiel '13:00 Putin wegen zu hohem Gaspreis anrufen' steht, soll ein Fenster oder eine MessageBox um 13:00 Uhr auf dem Desktop erscheinen und diese Meldung oder wenn es mehrere 13:00 Ereignisse gibt, diese anzeigen.

Öhm ja, mach doch einfach, es sollte nur den Timer nicht blockieren.