Timer anzeige

[alzaimar]

Die einfachste Möglichkeit ist die hier:
Es gibt in Delphi den Datentyp 'TDateTime'. Der ganzzahlige Anteil ist die Anzahl der Tage seit dem 1.1.1900. Der Nachkommaanteil beschreibt die Tageszeit: 0.5 ist Mittags, 0.25 morgens um 6. Soweit so gut.

Dann gibts noch eine Funktion, die die Uhrzeit in dem von dir gewünschten Format anzeigt: TimeToStr.
So, und dann hat der Tag 86400 (60*60*24) Sekunden. Also kannst Du deine Sekunden ganz einfach so anzeigen lassen:

Delphi-Quellcode:

Function SecondsToStr (aSeconds : Integer) : String;
Var
  iDays : Integer;

Begin
  iDays := aSeconds div 86400;
  Result := TimeToStr (aSeconds/86400);
  If iDays>0 Then 
    Result := Format ('%d Tag(e), %s',[iDays, Result]);
End;

Die Funktion zeigt Dir, wenns denn sehr lange dauert, auch noch die Tage an, also z.B.: "2 Tag(e) 05:03:02"