Minütlichen

[Sharky]

Oder, wenn Du möchtest in einer "Schleife" die Zeit prüfen.

Delphi-Quellcode:

var
  halt : Boolean;

procedure Delay (Value : Integer);
var
  start : Cardinal;
begin
  start := GetTickCount;
  repeat
    Application.ProcessMessages;
  Until (start + value) >= GetTickCount;
end;

procedure TForm1.StartClick(Sender: TObject);
var
  stunde,
  minute,
  sekunde,
  msekunde : Word;
  lminute  : Word;
begin
  halt := False;
  DecodeTime(now,stunde,minute,sekunde,msekunde);
  lminute := minute; // Lezte Minuten zahl
  Repeat
    DecodeTime(now,stunde,minute,sekunde,msekunde);
    if (sekunde <> lsekunde) then
    begin
      lminute := minute;
      Memo1.Lines.Add(IntToStr (lsekunde));  // Die Aktion die ablaufen soll
      Delay (200);  // Damit die Systemlast nicht zu hoch wird
    end;
  Application.ProcessMessages;
  Until (halt);
end;

procedure TForm1.StopClick(Sender: TObject);
begin
  halt := True;
end;