Einzelnen Beitrag anzeigen

Ajin

Registriert seit: 23. Feb 2006
Ort: Mons
252 Beiträge
 
Delphi 2010 Professional
 
#3

Re: Uptime der eigenen Anwendung in Minuten

  Alt 8. Feb 2008, 14:41
Okay ich habs dann mit dem Teilen des Integer Werts gelöst.

uptime ist ein integer = 0

Delphi-Quellcode:

procedure TForm1.Timer_dateTimer(Sender: TObject);
var m : string;
f:double;
begin
 inc(uptime);
 f:=uptime/60;
 Format('%.0n', [f]);
 m:=Format('%6.0f', [f]);
 label1.caption:=m;
end;
  Mit Zitat antworten Zitat