Bonjour

J ai un pb dans ma boucle de tri due au low, enfin je pense.
Je ne comprends pas.J imagine que je dois attribuer .value mais si je fais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 For ii:=Low(Tab.value) To High(Tab.value)-1 Do
j ai le meme message....
J ai le message d erreur operateur ou point virgule manquant
merci de votre aide.

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
procedure TForm2.Test_Spearman(T: Integer);
var
  tab : array[1..100]  of record
        id : integer;
        value : double;
        end;
 
   I,J,ii,jj: integer;
  temp  : double;
begin
 
  for I := T+1 to compteur do
  begin
    //---remplir tableau
    for j := (I-T)+1 to I do
      begin
      Tab[j].id:=j;
      Tab[j].value:=open[i];
      end;
 
    //---trier le tableau
    For ii:=Low(Tab) To High(Tab)-1 Do
	    For jj:=ii+1 To High(Tab) Do
		    If Tab[ii].value>Tab[jj].value Then
  			  Begin
    				temp:=Tab[ii].value;
    				Tab[ii].value:=Tab[jj].value;
    				Tab[jj].value:=temp;
  			  End;
   end;
end;