Timer / Stopuhr

[UnixX]

Guck mal ob du was damit anfangen kannst.

Delphi-Quellcode:

private  
FStartTime: TDateTime; 
public 
end; 
procedure TForm1.FormCreate(Sender: TObject); 
begin  
FStartTime := Now; 
end; 
procedure TForm1.Timer1Timer(sender: TObject); 
begin  
Label1.Caption := FormatDateTime('HH:NN', Now - FStartTime); 
end;


{Im OnCreate/OnShow Event des Forms wird die aktuelle Zeit/Datum in FStartTime gespeichert. Zur Anzeige der vergangenen Zeit muss dann nur noch von der aktuellen zeit (Now) die Startzeit des Forms subtrahiert werden.}