Discussion :

[CodesSources]

Bonjour,
Je voulais savoir si c'est possible de stocker dans une variable les centièmes les minutes et les seconds pour en faire un historique d'un chrono? car apparemment Delphi râle quand je fais ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure Tchronometre.tourBtnClick(Sender: TObject);
Begin
  //tabHisto est un tableau de structure
  // tailleTab est une variable globale
       tabHistorique[tailleTab].minuteCh := intToStr(tailleTab) +' tour            
       :'+IntToStr(m) + ' minute(s) ';
       tabHistorique[tailleTab].secondCh :=  intToStr(j) + ' second(s) ';
       tabHistorique[tailleTab].CentCh := intToStr(i) + ' centième(s)'
       tailleTab := tailleTab + 1 ;
End;
 
procedure Tchronometre.historiqueBtnClick(Sender: TObject);
//bouton affichant l'historique dans listbox
var
l : Integer;
p : Integer;
begin
p := tailleTab-1;
For l := 0 to p Do
Begin
     listHisto.Visible := True;
     listHisto.Items.Add (tabHistorique[l].minuteCh);
     listHisto.Items.Add (tabHistorique[l].secondCh);
     listHisto.Items.Add (tabHistorique[l].centCh);
     listHisto.Visible := True;
end;
tailleTab := 0;
end;

Merci d'avance

[edam]

ou est le TTimer dans tout sa?

[Archimède]

C'est la dimension de tabHistorique qui n'est pas fixée au départ.
Il a une dimension nulle et tu lui affectes une valeur...
et tu le dimensionnes à la fin !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure Tchronometre.tourBtnClick(Sender: TObject);
Begin
  inc(tailleTab);
  SetLength(tabHistorique,tailleTab);
  tabHistorique[tailleTab-1].minuteCh := intToStr(tailleTab-1) +'tour            
       :'+IntToStr(m) + ' minute(s) ';
  tabHistorique[tailleTab-1].secondCh :=  intToStr(j) + ' second(s) ';
  tabHistorique[tailleTab-1].CentCh := intToStr(i) + ' centième(s)'; 
End;

[Andnotor]

Certainement un TailleTab -1 au remplissage du tableau.

Maintenant, TTimer n'est pas une horloge complète, mais seulement un composant qui génère un événement toutes les N millisecondes.

Tu devrais créer un tableau de TTime et ne faire la mise en forme que lors de l'affichage de l'historique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
var
  LapTimes :array of TTime;
 
procedure TForm1.bStartClick(Sender: TObject);
begin
  //Heure de départ
  SetLength(LapTimes, 1);
  LapTimes[0] := Time;
 
  //Démarrage du timer pour l'affichage du tour en cours
  Timer1.Enabled := TRUE;
end;
 
procedure TForm1.bLapClick(Sender: TObject);
var
  Lap :integer;
 
begin
  //Fin du tour -> Ajout
  Lap := Length(LapTimes);
  SetLength(LapTimes, Lap +1);
  LapTimes[Lap] := Time;
end;
 
procedure TForm1.bEndClick(Sender: TObject);
var
  i: Integer;
 
begin
  Timer1.Enabled := FALSE;
 
  //Historique. Différence entre le tour courant et le tour précédent
  for i := 1 to High(LapTimes) do
    ListBox1.Items.Add(FormatDateTime('n "min." s "sec." z "milli."', LapTimes[i] -LapTimes[i-1]));
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //Tour en cours
  Caption := FormatDateTime('n "min." s "sec."', Time -LapTimes[High(LapTimes)]);
end;