Discussion :

[poly128]

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

Code :

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

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.

[hy00ga]

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 :

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

1
2
3
4
5
6
7
 
procedure efface( tableau : LE_TYPE_DU_TAB; index : Integer);
  var i : Integer;
begin
  for i:= index to ..........
...
...

[poly128]

C'est un tableau de record.

Code :

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

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 ?

[hy00ga]

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

[Cl@udius]

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

@+

[poly128]

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

[Cl@udius]

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 :

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

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

[neilbgr]

Code :

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

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]

[Cl@udius]

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

Salut @+

[neilbgr]

Evidement...