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.