Discussion :

[muquet]

bonjour, je desir alloué une structure dynamiquement et ca ne fonctionne pas?
quelqu'un peut m'aider ??


code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
type
 
  RParaMetier = record
    ClesMetier     :TStringList;
    ValeursMetier  :TStringList ;
    toto : string;
  end;
 
  PParaMetier = ^RParaMetier;
 
  TabParamMetier = array of  PParaMetier;

en variables globales :

Code :

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

TabOM : TabParamMetier;

puis dans le code :

Code :

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

1
2
  for inumAt := 0 to 2 do
    New(TabOM[inumAt]);

ca compil mais plante a l'execution sur le New(TabOM[inumAt]);

[Rayek]

au lieu de

Code :

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

1
2
3
 
for iNumAt := 0 to 2 do
  New(TabOM[inumAt]);

Ecrit :

Code :

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

1
2
 
SetLength(TabOM,2);

[muquet]

merci mais pour l'utilisation :

Code :

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

TabOM[0]^.toto:= 'texte';

ne passe pas du tout.

[Rayek]

merci mais pour l'utilisation :

Code :

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

TabOM[0]^.toto:= 'texte';

ne passe pas du tout.

Pourquoi ne pas ecrire directement sans le ^

Code :

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

1
2
 
  TabOM[0].toto := 'texte';

Puis je comprend pas pourquoi tu passes par un pointeur au niveau de ta structure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type
 
  RParaMetier = record
    ClesMetier     :TStringList;
    ValeursMetier  :TStringList ;
    toto : string;
  end;
 
  PParaMetier = ^RParaMetier;
 
  TabParamMetier = array of  PParaMetier;

ca s'ecrit aussi

Code :

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

1
2
3
4
5
6
7
8
9
10
 
type
 
  RParaMetier = record
    ClesMetier     :TStringList;
    ValeursMetier  :TStringList ;
    toto : string;
  end;
 
   TabParamMetier = array of  RParaMetier ;

a mon avis c'est exactement la même chose

[muquet]

ok mais comment peut on rendre la taille de

TabParamMetier = array of PParaMetier dynamique ?

pour etre - gourmant en memoire ?

merci

[Rayek]

Le fait d'avoir ecrit :

Code :

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

1
2
 
TabParamMetier = array of  RParaMetier ;

et deja dynamique, la tu as définit un tableau dynamique de RParametier.

Après si tu veux rajouter un élément au tableau, il faut que tu utilises SetLength pour augmenter ou reduire la taille du tableau.

Code :

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

1
2
 
SetLength(TabOM,high(TabOm) + 1); // ajoute 1 élément au tableau

[muquet]

mais en fait, quand on ecrit :

Code :

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

=   array of

qu'est ce qui se passe en memoire ? il alloue quelle taille de tableau :

[Rayek]

rien (ou le minimum pour la défiition), l'allocation se fait avec le setlength