Ganzzahl in Zeit Kovertieren?

[ste_ett]

Kleines Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dTime: TTime;
  wHour, wMin, wSec, wMSec: Word;
  dwMaxSeconds: DWORD;
begin
  dwMaxSeconds := StrToIntDef(Edit1.Text, 0);

  if (dwMaxSeconds <= 86400) then
  begin
    wHour := ((dwMaxSeconds div 60) div 60) mod 24;
    wMin := (dwMaxSeconds div 60) mod 60;
    wSec := dwMaxSeconds mod 60;
    wMSec := 0;

    dTime := EncodeTime(wHour, wMin, wSec, wMSec);
    Label1.Caption := TimeToStr(dTime);
  end
  else
//  mehr als "23:59:59" ggf. andere Darstellungsweise
end;