Discussion :

[CaptainChoc]

Bonjour,

Voilà, comme le titre le dit, j'aimerais savoir comment supprimer un élément d'un tableau de variables :

Ex :

Nom[1] : florent
Nom[2] : guillaume
Nom[3] : fred

en supprimant le premier nom par exemple, j'obtiens :

Nom[1] : guillaume
Nom[2] : fred

Merci, j'espère avoir été clair !

[haypo]

Si j'ai bien compris, t'as un tablo de String ? Essaye avec la fonction move. Si je ne me trompe pas, un string fait TOUJOURS 256 octets en mémoire, donc pour effacer florent (le pauvre), faut déplacer 2*256 octets :

Code :

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

move (txt[0], txt[1], 2*256);

J'ai bien peut de me tromper (j'ai plus trop la main en Pascal). Faut p'têtre rajouter un "@" devant les txt pour passer leur adresse en paramètre.

Code :

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

move (@txt[0], @txt[1], 2*256);

@+ Haypo

[CaptainChoc]

Oui mais la fonction move ne va que me deplacer mon nom dans le nom d'avant, pour que ce passera til pour le dernier nom, il mettra rien dedan?
Moi je ve a proprement parler, supprimer un element de mon tableau, donc ok je remonte tous mes element mais le dernier je devrai quand meme le supprimer et c'est ce que je cherche!

[M.Dlb]

Attention les tableaux ne sont pas dynamiques ! (c'est ce qu'on m'apprend à l'école argh ).
Donc ça veut dire que quand tu lui donne une taille lors de l'édition ce tableau aura la taille définie lors de l'éxecution et ne variera pas. Par conséquent tu ne peux pas supprimer une case. Le seul truc que tu peux faire c'est déplacer les autres case et remplir la case que tu veux effacer par 0 ou ''. Et voilà. Sinon pour déplacer tes cases c'est de l'algorithmique ( tri, .... ). Si t'as des questions pour savoir comment on fait ça, ben pose des questions ( ou va à l'école !!! )
a+

[tintin22]

Voila comme l'a dit wormful_sickfoot, tu réinitialise le dernier à '' , tu peux aussi mettre une variable qui t'indique le dernier élement
si tu as un array[1..Max]

Nom[1] : florent
Nom[2] : guillaume
Nom[3] : fred

Ici dernier_element = 3, si tu supprime "Fred" , dernier_element sera égale à 2, et ainsi de suite..

[haypo]

Autre solution, plus rapide dans la plupart des cas : avoir une variable qui contient le nombre d'éléments dans le tableau.

@+ Haypo

[M.Dlb]

Bien vu. Et dans ce cas, on peut faire un record qui contient un tableau, et une variable entière qui définit le nombre d'éléments dans le tableau.

Code :

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

1
2
3
4
5
6
 
type tab=array[1..20] of char;
type tableau=record
     t:tab;
     n_valeurs:integer;
     end;

Voilà !

[HRS]

et donc en peaufinant la solution de wormfull-sickfoot (en remplaçant
char par string)

on fait une procédure qui supprime un élément d'un tableau

Code :

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

1
2
3
4
5
6
7
 
procedure SupprimerElement (IndiceElementaSupprimer : integer;
                            var tab : tableau);
 
{ou}
 
procedure SupprimerElement (NomaSupprimer : string; var tab : tableau);

[M.Dlb]

Exactement et en peaufianant la solution de Monsieur HRS, on arrive à la solution des objets, enregsitrements qui contiennent des procédures ( méthodes ).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
type tab=array[1..20] of char;
type tableau=object
     t:tab;
     n_valeurs:integer;
     procedure SupprimerElement(Indice:integer);
     end;
 
{ou}
 
type tableau=object
     nom:string[20];
     n_valeurs:integer;
     procedure SupprimerElement(Indice:integer);
     end;

Voilà ! Le travail d'équipe paie toujours !

[Eric Sigoillot]

On peut aussi s'en faire un, de tableau dynamique ! Pourquoi se gêner...

Pour ça, il suffit d'utiliser les listes chaînées et les pointeurs.

C'est peut-être un peu complexe pour toi.

Si ça t'intéresse, j'ai un type liste chaînée qui gère aussi les listes de chaînes de caractères, avec tri et tout ce qui va avec.

A+

[moon tiger]

Je te propose ceci...

Code :

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

1
2
3
4
5
6
rang:integer                      (* indice de l'élément à suprimer*)
nmax:integer                     (* taille du tableau*)
 
inc(nmax);
for i:=rang to nmax do tableau[i]:=tableau[i+1];
dec(rang);

Je crois que ça doit pouvoir marcher...

[vinyl74]

premiere chose ds le for il faut que tu t'arretes a nmax-1 car tu utilises i+1
deuxieme chose je vois pas pourquoi tu decrementes le rang a la fin

[moon tiger]

en fait il ya une erreur:
il faut juste faire

Code :

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

1
2
3
4
 
 
for i:=rang to nmax do tableau[i]:=tableau[i+1];
dec(nmax);

Biensur avec 0< rang <=nmax;
-------------------------------------------------------------
Bienvenu dans le desert du réel..........

[vinyl74]

oui mais tu as un tableau de nmax cases or tu fais ds ton for
tab[i]:=tab[i+1] si i=nmax tu as tab[nmax]:=tab[nmax+1] =>petit pb

[moon tiger]

En effet, gros pb, j'y suis allé un peu trop facile....
T'as quoi comme solution ?


--------------------------------------------------------------------
the matrix has you.......

[Eric Sigoillot]

Toujours là ce problème sur le déplacement de données dans un tableau statique ???
Ca traine...

C'est pourtant pas compliqué. Il suffit de tout remonter d'un cran, et de remplir la dernière case avec du vide.

Soit un tableau de Max cases possibles au total (déclaration : Tab: array[1..Max] of string;, par exemple);

Soit n le nombre de cases remplies actuellement. Et soit Del la case à "supprimer".

On va déclarer une variable compteur, appelons-la i qui va se charger de déplacer nos données. Prêt ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
const
  Max = 10;
 
var
  Tab: array[0..Max] of string;
  n, Del: Integer;
  i: Integer;
begin
n := 8; { 8, pourquoi pas ??? }
Del = 5; { On va virer la cinquième case }
 
for i := Del + 1 to n do { On parcours toutes les cases derrière Del... }
  Tab[i - 1] := Tab[i]; { ...et on les remplies. La i-ème avec la (i+1)ème }
 
Tab[n] := ''; { On vide la dernière case pleine du tableau }
 
Dec(n); { Et on dit que l'on a supprimé une case }
end;

C'est pas la mer à boire quand même...

A+