Mehrere Zeitabfragen im Timer, wie?

[hathor]

Zitat von Codix32:

Gibt es da keinen besseren Ansatz?

Das geht auch besser mit einem Memo:

Delphi-Quellcode:

//Aufrufen, wenn ListBox1 geändert oder gefüllt wird
procedure TForm2.Button1Click(Sender: TObject);
begin
Memo1.Lines:=  ListBox1.Items;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
  myTime : TDateTime;
  formatted : string;
begin
myTime:= now;
DateTimeToString(formatted, 't', myTime);
if formatted<>Label1.caption then Label1.Caption:= formatted else Exit;

//wird nur 1x/Minute ausgeführt beim Minutenwechsel
if POS(Label1.caption,Memo1.Text)<>0 then
WinApi.Windows.Beep(1500,50);  // oder weiter mit procedure AUSWERTUNG...
end;

[ExceptionOverflow]

Hallo,

leider schon etwas spät aber ich dachte mir meine Idee könnte trotzdem mal weiterhelfen:
An deiner Stelle würde ich die Liste welche du speicherst / erstellst mit den verschiedenen Aufgaben und deren Zeiten auswerten und den Timer (Tick Event) auf die Zeit bzw. den Zeitabstand zum nächsten Event setzen und wenn dies "getickt" hat wieder das selbe für das nächst anstehende "Event /Aufgabe". Und wenn man diese Liste anpasst oder ändert musst du das natürlich prüfen ob sich die aktuelle Zeitspanne zum nächsten Event geändert hat und dann ggf. die Zeit von Timer anpassen.

Soweit meine Idee - ich hoffe ich habe dein Problem richtig erkannt und liege mit meinem Vorschlag nicht komplett daneben

Beste Grüße,

Niclas