Libérer un objet form appartenant à un array

Question

j'ai les 2 unit suivants :

unit principal;

interface

uses 
  ...;

type
  TForm1 = class(TForm)

  public
    doss: array[0..3] of TForm2;
    nbre: integer;

var
  Form1: TForm1;

implementation

procedure TForm1.FormCreate(...);
var
  compt: integer;
begin
  nbre := 3;
  for compt := 0 to nbre do
    doss[nbre] := nil;
end;

procedure TForm1.ButtonClick(...);
begin
  if nbre < 4 then
    begin
      doss[nbre] := TForm2.Create(...);
      inc(nbre);
      doss[nbre].show; 
    end;
end;

unit second;

interface

uses 
  ...;

type
  TForm2 = class(TForm)

implementation

procedure TForm2.FormClose(...);
begin
  doss[???].free;
  doss[???] := nil;
end;


Ma question est la suivante :

Dans la procédure TForm2.FormClose ci-haut, comment faire pour libérer
le bon objet à l'intérieur de l'array, pour éviter les mémory leak et les
EAccessViolation ?

Merci à tous !

benladder

f0xi · Answer

tu dois libérer dans l'appelant (soit TForm1)

Libérer un objet form appartenant à un array

1 réponse

Votre réponse

Discussions similaires