Probleme avec ma procedure.

Cette procedure doit supprimer un element d'un tableau mais parfois elle plante. :(

Code:

---

1 2 3 4 5

procedure effacer(i:integer); begin for i:=i to length(tab)-2 do tab[i]:=tab[i+1]; tab:= Copy(tab,0,length(tab)-1); end;

---

Quelqun peut m'aider je suis sure que c'est quelque chose de simple.

Le problème c'est que dans ta boucle for tu boucle sur la variable i qui elle contient ton indice. par contre je sais pas le type de tab donc je vais pas réécrire le code. Mais personellement je passerai la variable tableau en parametre a la procédure aussi.

Code:

---

1 2 3 4 5 6 7

procedure efface( tableau : LE_TYPE_DU_TAB; index : Integer); var i : Integer; begin for i:= index to .......... ... ...

---

C'est un tableau de record.

Code:

---

1 2 3 4 5 6

tab:array of record carre:trect; vitesse,xdest,ydest:integer; tipe:string; x,y:real; end;

---

Mais je vois pas à quoi sa sert de passer le type en parametre ?

Salut,

Il faut toujours être prudent avec les tableaux dynamiques, et s'assurer qu'on ne sort jamais des limites. Low et High sont faits pour ça.

Je ferais plutôt comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure Efface(AIndex: Integer); var i: integer; begin if (AIndex < Low(Tab)) or (AIndex > High(Tab)) then Exit;   for i := AIndex to High(Tab) - 1 do Tab[i] := Tab[i + 1]; SetLength(Tab, High(Tab)); end;

---

@+ Claudius

Citation:

---

Envoyé par Claudius40

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure Efface(AIndex: Integer); var i: integer; begin if (AIndex < Low(Tab)) or (AIndex > High(Tab)) then Exit;   for i := AIndex to High(Tab) - 1 do Tab[i] := Tab[i + 1]; SetLength(Tab, High(Tab)); end;

---

---

[EDIT]
Fais gaffe au High(Tab) - 1, car là pour le coup, il faut bien High(Tab) - 2 (puisque il y a un Tab[i + 1])
Surement une inattention de ta part ;)
[/EDIT]

Citation:

---

Envoyé par neilbgr

Fais gaffe au High(Tab) - 1, car là pour le coup, il faut bien High(Tab) - 2 (puisque il y a un Tab[i + 1])
Surement une inattention de ta part ;)

---

Que nenni mon ami ;)
Si le tableau comprend 10 éléments, ils seront indicés de 0 à 9. High(Tab) renvoie 9. High(Tab) - 1 est bien égal à Length(Tab) - 2. L'itération se sera bien de 0 à 8.

Sûrement une inattention de ta part :mrgreen:

Salut @+

:aie: :aie: :aie: :aie: :aie: :aie: :aie: :aie: :aie: :aie:
Evidement...

:dehors: :fessee:

Citation:

---

Envoyé par poly128

Mais je vois pas à quoi sa sert de passer le type en parametre ?

---

En fait c'est nettement plus propre nivceau programmation. Sinon dans 6 mois quand tu relis ton code tu ne pense pas forcément que cette procédure modifie un tableau. Donc dans la limite du possible toujours passer qqch qu'on modifie dans une procédure en paramètre à celle ci.

Bon maintenant c'est peut-être de la maniaquerie d'ingénieur en informatique :)

Citation:

---

Envoyé par hy00ga

Bon maintenant c'est peut-être de la maniaquerie d'ingénieur en informatique :)

---

Tout ce qui facilite la lecture donc la maintenance d'un code est toujours une bonne chose. Donc point de maniaquerie !

+1 :ccool:

@+

Merci à tous pour toute ces réponses.
Le code de Claudius40 marche impec. :D