specialize TFPGObjectList : AV bei Free

[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