Discussion :

[tintin62]

bonjour
j'ouvre un nouveau sujet pour pas pollué le précèdent
je voudrais changer ma déclaration suivante

Code :

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

1
2
 
RectArray: array [1 .. 66] of TRectangle;

donc d'apres ce que vient apprendre je dois faire

Code :

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

1
2
3
4
5
6
7
 
var
RectArray: array  of TRectangle;
nbrpiece:integer;
begin
nbrpiece:=66;
SetLength(RectArray, nbrpiece);

et pour détruire le array

Code :

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

1
2
3
4
 
for I:= Low(Rectarray) to High(Rectarray) do
   Rectarray[I].Free;
  SetLength(Rectarray, 0);

[XeGregory]

Déclaration dynamique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  RectArray: array of TRectangle;
  nbrpiece: Integer;
  I: Integer;
begin
  nbrpiece := 66;
  SetLength(RectArray, nbrpiece);
 
  // Exemple d'initialisation
  for I := Low(RectArray) to High(RectArray) do
    RectArray[I] := TRectangle.Create;

Libération mémoire

Code :

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

1
2
3
4
5
  for I := Low(RectArray) to High(RectArray) do
    RectArray[I].Free;   // libère chaque objet
 
  SetLength(RectArray, 0); // vide le tableau
end;

Pour éviter les dangling pointers (références vers des objets déjà détruits), tu peux utiliser FreeAndNil

Code :

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

1
2
for I := Low(RectArray) to High(RectArray) do
  FreeAndNil(RectArray[I]);

Donc ta logique est correcte, il fallait juste ajouter la création des objets (TRectangle.Create) et éventuellement sécuriser la libération avec FreeAndNil.

[Andnotor]

Il y a différentes variantes possibles.

La déclaration d'un tableau dynamique :

Code :

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

1
2
3
4
5
RectArray: array of TRectangle;
// ou
RectArray: TArray<TRectangle>;
// ou en ligne (avec remplissage)
var RectArray: TArray<TRectangle> := [Rectangle1, Rectangle2];

Vider le tableau peut également se faire de plusieurs manières :

Code :

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

1
2
3
4
5
SetLength(RectArray, 0);
// ou
RectArray := [];
// ou
RectArray := nil;

FreeAndNil serait "obligatoire" (ou presque) si le tableau était conservé (rempli de pointeurs nil) sinon Free suffit.
Vider le tableau dépendra de la portée. Inutile si c'est une variable de procédure puisqu'il sera finalisé à la sortie.

A noter qu'un tableau dynamique est toujours à base 0, on peut simplifier par :

Code :

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

1
2
for I := 0 to High(Rectarray) do
  Rectarray[I].Free;

On pourrait aussi l'écrire (mais ne supporterait pas FreeAndNil) :

Code :

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

1
2
for var R in Rectarray do
  R.Free;

[tintin62]

bonsoir
merci a vous tous je vais remplacer ancienne fonction alors
encore merci
donc résolu

[Mist2024]

J'ai recommandé l’utilisation de TObjectList<TRectangle> car c'est elle qui convient le plus dans ce contexte pour maintenir et libérer les objets en même temps.

Dans les deux cas, la première étape il faut adapter le code afin qu'il fonctionne sur la base de l'indice 0, dans les déclarations les boucles changer toutes les limites inférieures de 1 à 0 et décrémenter la limite supérieure d'un pas et faits un test si tout fonctionne bien tu pourras faire la transition vers tableau dynamique ou TObjectList