low d un array of record : pb ds boucle FOR

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:

---

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:

---

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;

---

La syntaxe du code est correcte. Quels sont les problèmes? Le tri est mal fait?

Salut

Citation:

---

Envoyé par sp2308

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:

---

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:

---

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

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 := SUCC(T) to compteur do // C'est quoi compteur ? // Toujours plus grand que t ? begin //---remplir tableau for j := SUCC(I-T) to I do begin Tab[j].id:=j; Tab[j].value:=open[i];// C'est quoi open[i] end; //---trier le tableau For ii:=Low(Tab) To Pred(High(Tab)) Do For jj:=succ(ii) 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;

---

---

en fait j'ai peur que tes bornes ne soient pas correctement défini
mise a part cela la syntaxe parait correct

@+ Phil

mon pb vient du low(tab).
Je ne sais pas comment lui attribuer specifiquement tab.value et non tab.id car si on precise rien, que prend il en compte ?

J ai rempli le tableau je l affiche, il n y a aucun pb mais le tri ne passe pas avec toujours le meme message d erreur :
operateur ou point virgule manquant

Low renverra toujours la limite inférieure du tableau et High la limite supérieure. Peu importe la structure des records qui constituent le tableau.

Dans ton cas:
Low(Tab) = 1
High(Tab) = 100

Et puisque ton tableau n'est pas dynamique, tu pourrais simplement les remplacer par 1 et 100.

Maintenant, ton erreur est pour le moins surprenante puisque ce message est renvoyé à la compilation lorsqu'un ligne de code n'a pas été terminée par un ";" et non à l'exécution :koi:.

bon je me suis sans doute expliqué comme un âne.

C est effectivement à la compilation que j ai ce message....

par contre je ne comprends pas, si je remplace low et high par des valeurs ou des variables declarees je n ai plus aucun probleme, ça compil...

Citation:

---

par contre je ne comprends pas, si je remplace low et high par des valeurs ou des variables declarees je n ai plus aucun probleme, ça compil...

---

peut-etre que la réponse d'Annapurna^^

Citation:

---

en fait j'ai peur que tes borne ne sont pas correctement définies
mise a part cela la syntaxe parait correcte

---

EDIT :
Si le code est bon c'est que la virgule manquante est dans la fonction low ou hight non ?

Y a ça aussi à voir :

Code:

---

for I := SUCC(T) to compteur do // C'est quoi compteur ?

---

Et les autres remarques sur le code de Annapurna.

EDIT :
A quelle ligne il te fait le problème ?
Faut le noter.

Et pour ça :

Code:

---

1 2	If Tab[ii].value>Tab[jj].value Then Begin

---

Si tu mettait :

Code:

---

1 2	If Tab[jj].value<Tab[ii].value Then Begin

---

Parce que c'est jj qui varie dans la boucle et ii qui sert de controle, c'est un essai à faire.

Citation:

---

par contre je ne comprends pas, si je remplace low et high par des valeurs ou des variables declarees je n ai plus aucun probleme, ça compil...

---

Ok! Alors le seul problème possible est que tu as déclaré des variables Low et High qui masquent les fonctions Low,High définies dans l'unité System :?.

Ce code renvoi cette erreur :

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.FormCreate(Sender: TObject); var Tab :array[1..100] of integer; i :Integer; Low :integer; //<-- Cette variable masque le Low de System.pas begin for i := Low(Tab) to High(Tab) do; end;

---

Soit tu changes le nom des variables, soit tu prefix les Low, High avec System.

Code:

---

for i := System.Low(Tab) to System.High(Tab) do;

---

Code:

---

for I := SUCC(T) to compteur do // C'est quoi compteur ?

---

Et les autres remarques sur le code de Annapurna.

Ben je sais pas c est pas dans mon script....

Citation:

---

Envoyé par Andnotor

Ok! Alors le seul problème possible est que tu as déclaré des variables Low et High qui masquent les fonctions Low,High définies dans l'unité System :?.

---

Effcetivement ,j ai fais ça :oops:

Merci pour vos reponses et ce que j y ai appris