SUPPRIMER UN ITEM D'UN TABLEAU DYNAMIQUE

Commentaire de cirec le 22/04/2007 11:50:17 administrateur CS

Salut,

ce n'est pas vraiment la bonne méthode bien qu'elle soit fonctionnelle.

Delphi a prévu une procedure nommée Move ... pour ce genre d'opération.

et voici son utilisation :

Il faut deux TLabel et un TButton sur la Fiche


  {Déclaration du Tableau}
Var
  MonTab : Array Of Integer;


  {Procedure de suppression d'un élément du tableau}
Procedure DelTabItem(Index : Integer);
Begin
    {Si l'index est en dehors des limites du tableau on sort}
  If (Index < Low(MonTab)) or (Index > High(MonTab)) Then Exit;

    {On décale les données en une fois ...
     Move(Source, Dest, Count)}
  Move(MonTab[Index + 1], MonTab[Index], High(MonTab) - Index + 1 * SizeOf(Integer));
  
    {Mise à jour de la taille du tableau}
  SetLength(MonTab, High(MonTab));
End;


  {Initialisation du tableau}
procedure TForm1.FormCreate(Sender: TObject);
Var I : Integer;
begin
  SetLength(MonTab, 20);
  For I := Low(MonTab) to High(MonTab) do MonTab[I] := I;
end;

  {Appel de la Procedure de suppression}
procedure TForm1.Button1Click(Sender: TObject);
Var I   : Integer;
    Str : String;
begin
    {Affichage permettant un contrôle avant suppression}
  Str := 'Avant : ';
  For I := Low(MonTab) to High(MonTab) do Str := Str + IntToStr(MonTab[I]) + ', ';
  Label1.Caption := Str;

    {Appel de la suppression}
  DelTabItem(11);

    {Affichage permettant un contrôle après suppression}
  Str := 'Après : ';
  For I := Low(MonTab) to High(MonTab) do Str := Str + IntToStr(MonTab[I]) + ', ';
  Label2.Caption := Str;
end;

ps: le niveau Initié est peut être un peut fort ... elle passe donc au niveau débutant ce qui
me semble plus juste.

@+
Cirec

Commentaire de jeromefer le 23/04/2007 18:02:29

Bonjour a tous.

Merci Cirec  pour ce tres bon code.

Je ne comprends pas le

'- Index + 1 * SizeOf(Integer));'

Si je ne le mets pas j'ai une erreur .


Et le count c'est pour quoi ??

Merci beaucoup

Jerome