Supprimer un item d'un tableau dynamique

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 365 fois - Téléchargée 30 fois

Contenu du snippet

Petit code pour supprimer un item d'un tableau dynamique

Source / Exemple :


var
a:integer; 
index:integer; 
MonTbl:array of ...;

//index est le numéro de l'item ke vous voulez supprimer
for a:= index+1 to Length(MonTbl)-1 do MonTbl[a-1] := MonTbl[a]; //déplaec tous les éléments après index.
SetLength(MonTbl,Length(MonTbl)-1); //reduit le tableau

Conclusion :


Je connais pas de fonction ki fa ca...
si vous en connaissez une ca m'arrangerai pas mal :-D

Merci

A voir également

Ajouter un commentaire

Commentaires

jeromefer
Messages postés
12
Date d'inscription
dimanche 14 janvier 2007
Statut
Membre
Dernière intervention
22 septembre 2008
-
Merci pour cette petite source tres interressante.
Jerome
cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
32 -
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
jeromefer
Messages postés
12
Date d'inscription
dimanche 14 janvier 2007
Statut
Membre
Dernière intervention
22 septembre 2008
-
Bonjour

Merci beaucoup pour ce code tres bien fait ! !
Je ne savais pas que l'on pouvait metre deux conditions dans la meme formule ! !
If (Index < Low(MonTab)) or (Index > High(MonTab))

Que du bonheur !!
Je vais decortiquer le code et essayer de le comprendre.
Au debut ces histoires de tableaux dynamiques me decouragaient mais
je dois avouer qu'en persistant c'est vraiment tres facile a comprendre.

Jerome
jeromefer
Messages postés
12
Date d'inscription
dimanche 14 janvier 2007
Statut
Membre
Dernière intervention
22 septembre 2008
-
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
mounirCrAzY
Messages postés
6
Date d'inscription
dimanche 22 avril 2007
Statut
Membre
Dernière intervention
15 mai 2008
-
Saluut Tout Le Monde ...
Quelqun Peut M'expliquer Comment supprimer un enregistrement d'un fichier RandomAccessFile en Java ??
J'ai Arrivé a Ajouter des nvelles Lignes les afficher et Rechercher une donnée
Mais comment supprimer ou Modifier jaraiive pas
SVP Aide ...
Merci D'avance ...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.