Hallo

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

markieren

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:

zusammenfalten · markieren

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 ??

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 .

so, ich hab jetzt eine TObjectList genommen, und füge die Images mit
Images.Add( MyImage ); ein, und gebe die Objekte auch wieder mit

markieren

Delphi-Quellcode:

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

wieder frei, nur bekomme ich immer noch eine AV

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

oh, das macht eine TObjectList selber ??
na, dann ist das problem gelöst

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

markieren

Delphi-Quellcode:

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

okay,
nochmals danke

Moin idontwantaname,

wenn Du dir Objekte so erzeugst

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.

Hi,

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

markieren

Delphi-Quellcode:

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

cu

Zitat von Christian Seehase:

Moin idontwantaname,

wenn Du dir Objekte so erzeugst

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