SUPPRIMER UN ITEM D'UN TABLEAU DYNAMIQUE
jeromefer
Messages postés
11
Date d'inscription
dimanche 14 janvier 2007
Statut
Membre
Dernière intervention
22 septembre 2008
-
22 avril 2007 à 09:33
mounirCrAzY Messages postés 5 Date d'inscription dimanche 22 avril 2007 Statut Membre Dernière intervention 15 mai 2008 - 9 juin 2007 à 16:06
mounirCrAzY Messages postés 5 Date d'inscription dimanche 22 avril 2007 Statut Membre Dernière intervention 15 mai 2008 - 9 juin 2007 à 16:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/11961-supprimer-un-item-d-un-tableau-dynamique
https://codes-sources.commentcamarche.net/source/11961-supprimer-un-item-d-un-tableau-dynamique
9 juin 2007 à 16:06
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 ...
23 avril 2007 à 18:02
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
22 avril 2007 à 15:30
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
22 avril 2007 à 11:50
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
22 avril 2007 à 09:33
Jerome