Discussion :

[Eric Beaumard]

Bonjour


Je suspecte un de mes programmes de planter à cause du fait que j'ai
j'utilise un type record contenant des champs tableaux dynamiques.

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
 
 
Type
TMatriceD	=	array of array of Double;
TVecteurD	=	array of Double;
TMatriceI	=	array of array of Integer;
TVecteurI	=	array of Integer;
TVecteurS	=	array of String;
 
CodageChamp=record
 
   TableLibelleChamp:TVecteurS;
   TableIndiceChamp: TVecteurI;
   NbCodageAlpha:Integer;
   MinCodageNumerique:Double;
   MaxCodageNumerique:Double;
   ColonneTableau:Integer;
 
end;

De fait, la question pour moi n'est pas claire. Est-ce qu'un record supporte
ce type de champ ou pas (avec tout ce que cela implique et notamment
l'utilisation de setLength pour changer la taille du tableau etc.) ?


Cordialement

Eric

[TicTacToe]

Je ne pense pas qu'il y ait de problème à cela.

Il faut juste être conscient que les données des tableaux dynamiques ne sont pas contenues dans le record, le record contient juste une référence sur ces données.

--> Sauver en bloc le record (comme on pouvait le faire à une certaine époque), ne sauvera pas les données des tableaux dynamiques.
--> la taille du record (SizeOf), ne donnera la taille en prenant en compte la taille des références des tableaux, et non la taille des contenus

[Philippe Gormand]

Bonjour.

--> Sauver en bloc le record (comme on pouvait le faire à une certaine époque), ne sauvera pas les données des tableaux dynamiques.
--> la taille du record (SizeOf), ne donnera la taille en prenant en compte la taille des références des tableaux, et non la taille des contenus

Il n'y a aucun problème pour utiliser des tableaux dynamiques dans une structure (type Record) à l'exception des fichiers.
Pour être enregistrée dans un fichier, une structure doit avoir une taille connue à l'avance et fixe.
Voir mon article sur l'utilisation des fichiers.

[slimjoe]

Je suspecte un de mes programmes de planter à cause du fait que j'ai j'utilise un type record contenant des champs tableaux dynamiques.

Que veut tu dire par planter ? Le tableau dynamique, par définition, a une longueur variable. Conséquement il arrive qu'on tente d'accéder à une position du tableau qui dépasse ses limites (tenter d'accéder à la 11e position d'un tableau de longueur 10 par exemple).

[Matt2094]

Que veut tu dire par planter ? Le tableau dynamique, par définition, a une longueur variable. Conséquement il arrive qu'on tente d'accéder à une position du tableau qui dépasse ses limites (tenter d'accéder à la 11e position d'un tableau de longueur 10 par exemple).

Petit conseil : si ton problème vient de là, Eric Beaumard, je te conseille que à chaque fois que tu redimenssionne ton tableau, ajoute 1 ou 2 de dimension :

Code :

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

SetLength(MonTableau, Dim+1);

Ca évite les erreurs logiques, dans des boucles par exemple, qui provoquent des violation d'accès à l'addresse ... mais je penses que tu connais ça ...

[TicTacToe]

Petit conseil : si ton problème vient de là, Eric Beaumard, je te conseille que à chaque fois que tu redimenssionne ton tableau, ajoute 1 ou 2 de dimension :
Code :

SetLength(MonTableau, Dim+1);

Ca évite les erreurs logiques, dans des boucles par exemple, qui provoquent des violation d'accès à l'addresse ... mais je penses que tu connais ça ...

@Matt2094
Alors là...
c'est la 1ere fois que je l'entends celle là
on n'ajoute pas des celulle comme ca, pour eviter les violation parcequ'il y en a une.
Il faut être maitre du nombre de cases, et des parcours que l'on fait dans les tableaux, sinon ou va-t-on ?
Meme si dans ce cas précis ca devait marcher, c'est qu'il y a une itération de trop ou le tableau n'est pas assez grand, mais il faut comprendre pourquoi.

Je ne ferait pas confiance a une augmentation de taille sans en comprendre la raison exact, ou alors c'est la porte ouverte à d'autres bugs.

[LadyWasky]

Je ne ferait pas confiance a une augmentation de taille sans en comprendre la raison exact...

Moi non plus !

EN tout cas tu dois avoir un access violation quelque part, c'est sur...

Saches simplement que ton tableau est indicé de 0 à N-1, et que tu dois surement y accéder avec un indice de N à un moment donné.
Saches aussi, que ce n'est pas forcément au moment où tu lis les données hors du tableau que l'Access Violation va se produire (sans doute à cause du caractère dynamique du tableau), mais plutot au retour de la procédure dans laquelle s'est produit l'accès, voir, même, carrément lorsque tu quittes ton programme.

illustration :

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
function TraiteTableau(Tab:array of integer):integer;
var i:integer;
begin
  i:=Tab[10]; //<--acces hors du tableau qui ne produit 
                  //pas forcément l'access violation
  result:=i*i;
end;
 
procedure UneProcedure;
var MonTab:array of integer;
     UnCarre:integer;
begin
  ...
  SetLength(MonTab,10);  //<- le tableau est indicé de 0 à 9 !
  UnCarre:=TraiteTableau(MonTab);
  ShowMessage(InttoStr(UnCarre)); //L'Access violation peut très bien se produire ici !!!
  ...
end;

[inoussa]

Salut
Lorsque l'enregistrement est créé dynamiquement ( en supposant que c'est le cas... ) avec un GetMem(), il faut l' initialiser avec un FillChar() sinon effectivement vous aurez ce genre de problème.
Le bloc de mémoire correspondant aux "types dynamiques" ( ansistring, array dynamique ) doivent être toujours bien initialisé car ce ne sont que des pointeurs déguisés. Le code ci-dessous montre que le champ chaine "s" avant initialisation contient une valeur; Ce qui est forcement erroné, décommenter la ligne en commentaire et vous verez. Pour éviter le bésoin d'initialisation utiliser New() et Dispose().
A+

Code Delphi :

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
20
21
22
23
 
type
  PR = ^TR;
  TR = record
    a : Integer;
    s : ansistring;
  end;
procedure TForm1.Button1Click(Sender: TObject);
var
  p : PR;
begin
  GetMem(p,SizeOf(TR));
  try
    Memo1.Lines.Add(IntToStr(p^.a));
    Memo1.Lines.Add(IntToStr(Integer(Pointer(p^.s))));
    //Memo1.Lines.Add(p^.s); <<< Cette ligne plantera !!
    FillChar(p^,SizeOf(TR),#0);
    Memo1.Lines.Add(IntToStr(p^.a));
    Memo1.Lines.Add(IntToStr(Integer(Pointer(p^.s))));
  finally
    Freemem(p);
  end;
end;