Discussion :

[un_singe_en_hiver]

Bonjour,

j'utilise un tableau dynamique a 3 dimensions.

Je le déclare:

Code :

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

1
2
 
tempResult                    : array of array of array of real;

Je définis ces dimensions:

Code :

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

1
2
 
SetLength(tempResult, nbsb, nbda,nbdtsauv);

Puis je l'utilise dans mon programme, mais au moment de le désallouer je n'y arrive pas.
J'ai essayé:
-de laisser delphi le faire tout seul: ça plante
- un finalize:

Code :

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

1
2
 
Finalize(tempResult);

ça plante aussi
- de mettre la taille à 0:

Code :

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

1
2
 
SetLength(tempResult,0)

ça plante aussi

Je suis donc un peu perdu... sauriez-vous comment désallouer ce tableau?

Merci d'avance,

Vincent

[Ph. B.]

Bonjour,

j'utilise un tableau dynamique a 3 dimensions.
...mais au moment de le désallouer je n'y arrive pas.
J'ai essayé:
-de laisser delphi le faire tout seul: ça plante

Quel est le message d'erreur ?

- un finalize:
ça plante aussi

Quel est le message d'erreur ?

- de mettre la taille à 0: SetLength(tempResult,0)ça plante aussi

Et quel est le message d'erreur ?

Ces 2 derniers cas font pourtant partie des cas possibles.

Code :

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

1
2
3
tempResult := nil;
Finalize(tempResult);
SetLength(tempResult, 0);

En fait, votre problème doit se trouver ailleurs... Quelle version de Delphi ?

[ALWEBER]

Je verrai plotôt quelque chose comme suit

Code :

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

1
2
3
4
5
6
7
8
var
  tempResult : array of array of array of real;
begin
  // Alloue
  SetLength(tempResult,3,4,5);
  // Remet à zero et libère
  SetLength(tempResult,0,0,0);
  FreeAndNil(tempResult) ;

Le FreeAndNil est important si tu utilises un tableau passé par valeur à une procédure ou une fonction

[un_singe_en_hiver]

En fait, votre problème doit se trouver ailleurs... Quelle version de Delphi ?

Hé oui effectivement cela venait d'ailleurs je remplissais mon tableau et je débordais d'une case dans le tableau. Ce qui a fait que je ne l'ai pas vu c'est que le programme semblait réaliser cette opération et ne plantait qu'au moment de supprimer le tableau.

Désolé pour le dérangement,

et merci de l'aide

Vincent

[Andnotor]

Je verrai plotôt quelque chose comme suit

Code :

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

1
2
3
4
5
6
7
8
var
  tempResult : array of array of array of real;
begin
  // Alloue
  SetLength(tempResult,3,4,5);
  // Remet à zero et libère
  SetLength(tempResult,0,0,0);
  FreeAndNil(tempResult) ;

Le FreeAndNil est important si tu utilises un tableau passé par valeur à une procédure ou une fonction

FreeAndNil attend un objet. C'est une VA assurée ton truc
Ca passe ici (mais est totalement inutile) parce que SetLength(0) a reset-é le pointeur.

Comment passer un tableau dynamique par valeur C'est son pointeur uniquement qui est passé par valeur.

[ALWEBER]

FreeAndNil attend un objet. C'est une VA assurée ton truc
Ca passe ici (mais est totalement inutile) parce que SetLength(0) a reset-é le pointeur.

Comment passer un tableau dynamique par valeur C'est son pointeur uniquement qui est passé par valeur.

En fait tu as raison le freeandNil ne sert à rien mais dans l'exemple suivant arX := nil ; est essentiel
Voici le code que j'ai du employer à la place du setlength pour réinitialiser des variables locales de type Tableau dans des procédures ou de fonctions car il y a des problèmes dans Delphi. La première fois cela se passe bien. Après cela pose des problèmes.

En ce qui concerne le FreeAndNil je faisais référence au Record qui peut se comporter comme un Record ou une Classe suivant sa déclaration.

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
20
 
type
  TArDouble = array of double;
...
procedure setlength1(var arX: TArDouble; long : integer);
var
  i1 : integer ;
begin
  i1 := length(arX) ;
  if i1 = 0 then
    setlength (arX, long)
  else
    if long <> i1  then
    begin
      setLength(arX,0) ;
      arX := nil ;
      Finalize(arX);
      setlength (arX, long) ;
    end ;
end ;

[Andnotor]

En fait tu as raison le freeandNil ne sert à rien mais dans l'exemple suivant arX := nil ; est essentiel

Mais pourquoi ? Si un tableau est de longueur 0, la variable le référençant est déjà à nil. Inversement, si tu préfères écrire arX := nil, tu peux te passer du SetLength(arX, 0).

Voici le code que j'ai du employer à la place du setlength pour réinitialiser des variables locales de type Tableau dans des procédures ou de fonctions car il y a des problèmes dans Delphi.

Quel genre de problème ?

En ce qui concerne le FreeAndNil je faisais référence au Record qui peut se comporter comme un Record ou une Classe suivant sa déclaration.

Un record ne peut pas avoir de destructeur.

[ALWEBER]

Un record ne peut pas avoir de destructeur.

Effectivement.
Je faisais référence à cette information docwiki.embarcadero
au chapitre "Enregistrements (avancés)" ou il est dit "le langage Delphi autorise des types enregistrement plus complexes, similaires à des classes"
Après vérification, le constructeur "Create" sur un record ne génère pas de nouvelle structure en mémoire donc si pas de création pas de destruction.

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
20
21
22
23
24
25
26
27
28
29
 
...
{$APPTYPE CONSOLE}
...
type
  T1 = record
    i1 : integer ;
  public
    constructor Create (val : integer);
  end;
var
  v1 : T1 ;
  p1 : ^Integer ;
constructor T1.Create(val: integer);
begin
  i1 := val ;
end;
 
begin
  p1 := @v1 ;
  writeln(intToHex(integer(p1^),8)) ;
  v1.i1 := $11223344 ;
  writeln(intToHex(integer(p1),8)) ;
  writeln(intToHex(integer(p1^),8)) ;
  v1 := T1.Create($12345678) ;
  writeln(intToHex(integer(p1),8)) ;
  writeln(intToHex(integer(p1^),8)) ;
  readln;
end.

[ALWEBER]

Mais pourquoi ? Si un tableau est de longueur 0, la variable le référençant est déjà à nil....

.
Le problème rencontré était dans un programme qui manipulait de nombreux tableaux et que j'ai résolu par la solution présentée. Je vais modéliser ce problème et le mettre sur ce site.

[Andnotor]

Qui pourrait plus simplement s'écrire v1.Create($12345678);. Cette écriture-là s'apparente effectivement à une instance de classe puisque invoquer Create sur la variable a pour effet de la réinitialiser (ce qui est défini dans le constructeur bien-sûr)
Mais sur un record, je n'ai jamais aimé ce terme de constructeur car appeler MyRecord := TMyRecord.Create(0); revient uniquement à lui copier une pseudo-constante (le record est une valeur et non une référence).

Ça permet cependant dans certains cas une grosse simplification d'écriture. Ainsi ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function TForm1.IsIntersecting(aRect: TRect; L, T, R, B: integer): boolean;
var
  Rect :TRect;
begin
  Rect.Left   := L;
  Rect.Top    := T;
  Rect.Right  := R;
  Rect.Bottom := B;
 
  Result := aRect.IntersectsWith(Rect);
end;

peut être simplifié comme cela :

Code :

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

1
2
3
4
function TForm1.IsIntersecting(aRect: TRect; L, T, R, B: integer): boolean;
begin
  Result := aRect.IntersectsWith(TRect.Create(L, T, R, B));
end;

Par contre, ceci est invalide (d'où le terme de pseudo-constante) :

Code :

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

1
2
3
4
5
with TRect.Create(10, 10, 100, 100) do
begin
  Left := 50;
  ...
end;