[erledigt] Zeit-Format

[Hansa]

Ich glaube kaum, daß der Timer Ärger macht. Aber wer weiß, es sieht jetzt so aus:

Delphi-Quellcode:

procedure TForm1.UhrTimer(Sender: TObject);
begin
  Label2.Caption := 'Zeit : ' + FormatDateTime ('hh:mm',time);
  if SecondOf (time) = 0 THEN
    Uhr.Interval := 60000;
end;

Sobald eine volle Minute erreicht ist, setze ich eben das Intervall des Timers auf 1 Min. Im OI ist allerdings 1000, also eine Sek. eingestellt !! Diese Einstellung gilt so lange, bis die erste Minute voll ist. Und der Vollständigkeit halber für ASM-Liebhaner :

Code:

INLINE ($CD/$28);

Damit frage ich angeblich die Systemzeit ab. 8)