Zitat:
nicht gut.
Hängen kann es so oder so, da hilft auch kein anderer Timer,
auch wenn Dieser um einige Millisekunden genauer arbeiten dürfte.
Hier ging es um etwas im Sekundenbereich, für menschliche Maßstäbe, wo es (meistens) garnicht so genau sein muß.
Wenn ein Rechner total augelastet/überlastet sein sollte, dann wäe es mir auch egal (hätte Verständnis dafür), wenn es hier mal 'ne Sekunde/Minute hängt.
Ja, die Frage war "gibt es schon was Fertiges?".
Antwort: nein (OK, jain)
* TimerEvent-Komponente dafür besorgen (oder bauen lassen)
* Timer öfters/regelmäßig triggern und Prüfen ob Minute voll
* Timer auf nachfolgende Minute einstellen
* Thread
* oder 200 Milliarden andere Lösungen
PS: er wollte es einfacher haben,
da ist es eh kontraproduktiv, wenn ihr es noch komplizierter macht.
ein TTimer mit Interval von 1000 (oder weniger, z.B. 500, 250 oder 100)
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Label1.Caption := FormatDateTime('hh:mm:ss .zzz', Now);
if Now < FNextEvent then
Exit;
FNextEvent := Trunc(Now * MinsPerDay + 1) / MinsPerDay;
// mach irgendwas wenn die neue Minute beginnt
Caption := TimeToStr(Now);
Beep;
end;
Oder hab ich's übersehen und es gibt doch irgendwo ein RoundToMinute (Trunc) ?
oder
Delphi-Quellcode:
FNextEvent := IncMinute(Now, 1);
FNextEvent.SetSecond(0);
FNextEvent.SetMilliSecond(0);
oder
Delphi-Quellcode:
FNextEvent := IncMinute(RecodeDateTime(Now, RecodeLeaveFieldAsIs, RecodeLeaveFieldAsIs,
RecodeLeaveFieldAsIs, RecodeLeaveFieldAsIs, RecodeLeaveFieldAsIs, 0, 0), 1);
oder
...