Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Zeit in Label wiedergeben

    Delphi
    by Wormid, 22. Okt 2003
  Will auch ne Lösung posten: :mrgreen:
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  var h, m, s, msec: Word;
  begin
  if Timer1.Tag = 0 then Timer1.Tag := GetTickCount;
  DecodeTime(((Timer1.Tag - GetTickCount) / MSecsPerDay), h, m, s, msec);
  msec := msec div 10;
  Label1.Caption := Format('%.2d:%.2d:%.2d', );
  end;