procedure TForm1.Timer1Timer(Sender: TObject); //Secondes,minutes,heures begin If sec < 59 then sec:=sec+1 else begin sec:=0; if min < 59 then min :=min+1 else begin min:=0; heur:=heur+1; end; //Changement du caption des labels Label3.caption:= inttostr(sec); Label2.caption:= inttostr(min); Label1.caption:= inttostr (heur); end;
... if sec < 59 then sec := sec+1 else begin sec := 0; if min < 59 then min := min+1 else begin min := 0; heur := heur+1; end; end; ...@+
var Heure : TDateTime; ... procedure Timer... Heure := IncSecond(Heure, 1); Label1.Caption := FormatDateTime('hh:nn:ss', Heure); ... procedure Start... Heure := 0; ....@+
var h,m,n,s: word; begin DecodeTime(Time,h,m,s,n); heure.Caption := IntToStr(h); minute.Caption := IntToStr(m); seconde.Caption := IntToStr(s); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionvar debut: TDateTime; Procedure Onstart; Begin start := Now; end; procedure TForm1.Timer1Timer(Sender: TObject); var heur, min, sec, ms: Word; begin DecodeTime(Now - debut, heur, min, sec, ms); //Changement du caption des labels Label3.caption:= inttostr(sec); Label2.caption:= inttostr(min); Label1.caption:= inttostr (heur); end;
var Start: TTime; function GetElapsedTime(StartTime, CurrentTime: TTime): string; begin Result := FormatDateTime('tt', CurrentTime - StartTime); end; procedure StartCount; begin Start := Now; { déclenchement du Timer } Form1.Timer1.Enabled := True; end;
procedure TForm1.Timer1Timer(Sender: TObject); begin lblTime.Caption := GetElapsedTime(Start, Now); end;
procedure TForm1.Button1Click(Sender: TObject); begin StartCount; end;
type TChThread = class(TThread) private { Déclarations privées } FDep : TDateTime; protected constructor Create(CreateSuspended: Boolean); procedure Execute; override; procedure Affichage; end; TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure Button1Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; ChThread: TChThread; implementation {$R *.dfm} var Stop: boolean = True; procedure TChThread.Execute; begin while not Terminated do Synchronize(Affichage); end; procedure TChThread.Affichage; var Heur, Min, Sec, ms: Word; begin DecodeTime(Now - FDep, Heur, Min, Sec, ms); Form1.Label4.Caption := FormatDateTime('hh:nn:ss.zzz', Now - FDep); Form1.Label3.caption:= IntToStr(Sec); Form1.Label2.caption:= IntToStr(Min); Form1.Label1.caption:= IntToStr(Heur); end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if Assigned(ChThread) then if not ChThread.Terminated then ChThread.Terminate; end; constructor TChThread.Create(CreateSuspended: Boolean); begin inherited Create(CreateSuspended); FreeOnTerminate := True; FDep := Now; Priority := tpNormal; if CreateSuspended then Resume; end; procedure TForm1.Button1Click(Sender: TObject); begin Stop := not Stop; if not Stop then ChThread := TChThread.Create(True) else ChThread.Terminate; end; end.@+
labelHeure.Caption := Format('%.2d', [variableHeure]); labelMinute.Caption := Format('%.2d', [variableMinute]); labelSeconde.Caption := Format('%.2d', [variableSeconde]);
tempsLabel.Caption := Format('%.2dh %2.dmn %.2dsec', [heures, minutes, secondes]);
function getTimeString: string; var temps: TDateTime; begin temps := EncodeTime(heure,minutes,secondes,millisecondes); // si une des variables contient une valeur erronée, une exception sera lancée result := FormatDateTime('hh:mm:ss', temps); end;
var Form1 : TForm1; sec : integer = 0; min : integer = 0; heur: integer = 0; ...
var B : Boolean = true; i : Integer = 15;
Procedure Onstart; Begin debut := Now; end;
Procedure Onstart; Begin min:=0; sec:=0; heur:=0; end; procedure TForm1.Timer1Timer(Sender: TObject); //Secondes,minutes,heures begin If sec < 59 then sec:=sec+1 else begin sec:=0; min:=min+1; if min < 59 then min :=min+1 else begin min:=0; heur:=heur+1; end; end; //Formatage des variables sec,min,heur en format "DateTime" formatdatetime('ss',sec); formatdatetime('mm',min); formatdatetime('hh',heur); //Changement du caption des labels Label3.caption:= inttostr(sec); Label2.caption:= inttostr(min); Label1.caption:= inttostr (heur); end; procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled :=True; Button1.enabled:=false; end; procedure TForm1.Button2Click(Sender: TObject); begin Timer1.enabled:=false; Button2.enabled:=False; showmessage('Merci'); //Remise à Zero du compteur min:=0; sec:=0; heur:=0; //Remise à Zero des Labels Label1.Caption:='00'; Label2.Caption:='00'; Label3.Caption:='00'; //Reactivation des boutons button1.enabled:=true; button2.enabled:=true; end;
//Secondes,minutes,heures begin If sec < 59 then sec:=sec+1 else begin sec:=0; if min < 59 then min :=min+1 else begin min:=0; heur:=heur+1; end; end;
//Changement du caption des labels Label3.caption:= inttostr(sec); Label2.caption:= inttostr(min); Label1.caption:= inttostr (heur);