specialize TFPGObjectList : AV bei Free

[haentschman]

Moin...

Du erzeugst die Objektliste mit OwnsObjects = True und gibst im destructor selbst die enthaltenen Bilder wieder frei. Das muß Puff machen... Wenn du die Instanzen selbst verwalten möchtest dann OwnsObjects auf False. Dann würde das mit der Freigabe passen. Dann brauchst du aber auch nicht auf Assigned prüfen. Jeder Listeneintrag ist ein Pointer.

Delphi-Quellcode:

FSmileys := Smileys.Create(True); // OwnsObjects = True
.
.
.
destructor TSmileys.Destroy;
var
  Smiley : TSmiley;
begin
//  for Smiley in FSmileys do // diesen Block brauchst du nicht
//    if Assigned(Smiley) then 
//       Smiley.Free; //

  FSmileys.Free;
  inherited Destroy;
end;

..fertsch.

[Alter Mann]

Ja, sieht ganz so aus.

Ich habe es jetzt so gemacht und es geht

Code:

...
destructor  TSmiley.Destroy;
begin
  FPicture.Free;
  inherited Destroy;
end; 
...
destructor  TSmileys.Destroy;
begin
  FSmileys.Clear;
  FSmileys.Free;
  inherited Destroy;
end;

Danke

[haentschman]

Siehst du... again what learned.

Das FSmileys.Clear; kannst du auch weglassen. Das wird beim Free automatisch gemacht. Um Daniel zu zitieren: "Verschwendung von wertvollen Bits und Bytes"

[DeddyH]

Und es geht noch kürzer:

Delphi-Quellcode:

destructor TSmileys.Destroy;
begin
  FSmileys.Free;
  inherited;
end;

Da der Destruktor dieselbe Signatur hat wie der geerbte, kann der explizite Aufruf entfallen.

[haentschman]

...den hatte ich gar nicht gesehen weil selbstverfreilich.