Concevoir un petit chronomètre

var
Form1: TForm1;
TheTime:Integer;
implementation

{$R *.DFM}


Function GetCounter(Second:Integer):String;
Var
Minute,NewSecond,Hour : Currency;
Begin
Hour := Int(Second / 3600);
Minute := Int((Second-(Hour*3600))/60);
NewSecond := Second-int(Hour*3600+Minute*60);
GetCounter := CurrToStr(Hour)+':'+CurrToStr(Minute)+':'+CurrToStr(NewSecond);
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
TheTime:=GetTickCount;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=GetCounter(GetTickCount Div 1000 -TheTime Div 1000);
end;
end.
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour23/11/2004
VisualisationVu 1361 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur