TImages, deren Pointer in einer TList stehen, frei geben

[idontwantaname]

Hallo :hi:

Ich habe ein Problem, und zwar folgendes: Ich erstelle dynamisch mehrere TImage-Objekte und speichere diese mit folgendem Code in eine TList:

Delphi-Quellcode:

MyImage: TImage;
Images: TList;
{...}
MyImage := TImage.Create( Form1 );
MyImage.Parent := Form1;
{...}
Images.Add( @MyImage );

Nun möchte ich diese Images wieder freigeben und so hab ich versucht, dies so zu lösen:

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
  MyImage: ^TImage;
begin
  for i := 0 to Images.Count - 1 do
  begin
    MyImage := Images.Items[i];
    MyImage^.Free;
  end;

  Images.Free;
end;

Leider gibt es beim schließen des Programms eine AV :(
Kann mir jemand helfen und erklären, wo der Fehler in diesem Code ist ??

[Khabarakh]

Wie schon oft gesagt, Objektreferenzen (also z.B. Image: TImage) sind schon selbst Pointer. Delphi nimmt dir schon die meiste Arbeit ab, mit ^TImage hast du einen Pointer auf einen Pointer auf deine Klasse.
Nimm am besten gleich TObjectList .

[idontwantaname]

so, ich hab jetzt eine TObjectList genommen, und füge die Images mit

Delphi-Quellcode:

Images.Add( MyImage );

ein, und gebe die Objekte auch wieder mit

Delphi-Quellcode:

for i := 0 to Images.Count do
  Images.Items[i].Free;

wieder frei, nur bekomme ich immer noch eine AV :cry:

[teebee]

Ist die Eigenschaft OwnsObject der ObjectList gesetzt? Dann sezte sie auf False, dann übernimmt die Liste die Freigabe nicht selbst.

Edit: Oder gib einfach nicht selbst frei...

Gruß, teebee

[idontwantaname]

oh, das macht eine TObjectList selber ?? :oops:
na, dann ist das problem gelöst :-D

[Khabarakh]

Zur ursprünglichen Frage:
Nach unten zählen!

Delphi-Quellcode:

for i := Images.Count - 1 downto 0 do
  Images.Delete(i);

[idontwantaname]

okay,
nochmals danke

[Christian Seehase]

Moin idontwantaname,

wenn Du dir Objekte so erzeugst

Delphi-Quellcode:

MyImage := TImage.Create( Form1 );

nämlich mit Angabe eines Owners (in diesem Falle Form1), brauchst Du diese nicht selber freizugeben.
Dies geschieht automatisch, wenn der Owner freigeben wird.

[sECuRE]

Hi,

alternativ zum nach unten zählen kann man es auch so lösen:

Delphi-Quellcode:

while (Images.Count > 0) do
  Images.Items[0].Free;

cu

[idontwantaname]

Zitat:

Zitat von Christian Seehase

Moin idontwantaname,

wenn Du dir Objekte so erzeugst

Delphi-Quellcode:

MyImage := TImage.Create( Form1 );

nämlich mit Angabe eines Owners (in diesem Falle Form1), brauchst Du diese nicht selber freizugeben.
Dies geschieht automatisch, wenn der Owner freigeben wird.

auch gut, dann hat sich die sache ja ziemlich einfach erledigt :)