Abgeleitet von TObject -> Destroy -> Inherited -> Ung. Zeig.

[Die Muhkuh]

Hi,

irgendwie reichen mir im Titel die 45 Buchstaben nich

Ich hab eine Klasse (TLiveUpdate) von TObject abgeleitet:

Delphi-Quellcode:

TLiveUpdate = class(TObject)
  private
    FFiles: array of TUpdate;
   ...
  public
    Updates: array of TUpdate;

    destructor Destroy; override;
    ...
  end;

destructor TLiveUpdate.Destroy;
var
  I: Integer;
begin
  for I := 0 to Length(FFiles) - 1 do
  begin
    FFiles[I].Free;
  end;

  for I := 0 to Length(Updates) - 1 do
  begin
   Updates[I].Free;
  end;
  // Bis hier hin läuft alles perfekt
  inherited;
end;

Per FreeAndNil(LiveUpdate) zerstöre ich das Object, aber bei "inherited" bekomme ich eine ungültige Zeigeroperation. Ich hab das ganze schon durchgesteppt, konnte aber keinen anderen fehler finden. Vllt. wisst ihr ja was.

Wahrscheinlich steh ich ma wieder auffem Schlach

Danke.