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]);