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.

[jfheins]

Versuche mal stattUpdates[I].Free; das:FreeAndNil (Updates[I]);

[Die Muhkuh]

An dem liegt es nicht (wie schon gesagt).

Ich habs trotzdem ma ausprobiert, aber es geht trotzdem nicht

[Robert_G]

Bevor ich jetzt mehr tippe...
Hast du irgendeine Ausrede warum du ein array of ... anststatt einer ObjectList o.ä. benutzt?
Könnte ja sein (ist ziemlich unwahrscheinlich, aber passieren kann alles...)
Edit: -es

[jfheins]

Ich meine jetzt nicht das Objekt, dessen destructor aufgerufen wird, sondern die Objekte im Array,

bei mir kam sowas auch schonmal, und soweit ich mich erinnere, konnte ich es so lösen ...

(Oder nimm, wie _G es empfiehlt, eine TObjectList)

[Die Muhkuh]

Öhm,

Ausrede?

Ne eigentlich nicht. Normalweise benutze ich ja die ObjectList, aber keine Ahnung warum jetzt nicht.

*Umbau*

[Die Muhkuh]

So,

ich habs umgebaut.

Jetzt bekomme ich das:

Code:

---------------------------
Liveupdate
---------------------------
Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000.
---------------------------
OK   
---------------------------

Delphi-Quellcode:

destructor TLiveUpdate.Destroy;
begin
  FreeAndNil(FFiles);  // Hier ist ein BreakPoint
  FreeAndNil(Updates);  // steppe per F7 hier her
  // steppe weiter
  // jetzt dauert zwei bis drei sekunden und die Fehlermeldung kommt
  inherited;
end;

[jfheins]

Wie erzeugst du die Objekte ? (Owner ?)

[Robert_G]

Sollen wir jetzt raten, was im Destructor von Tupdate steckt?
Ich nehme mal an, du erzeugst deine ObjectLists so: (?)
   fFiles := TObjectList.Create(true); Wenn ja wird ganz normal der Destructor aller Elemente aufgerefuren. Und schon landen wir bei Frage nach Code dieses Destructors...

[Die Muhkuh]

Hi,

sorry, wusste doch, ich hab was vergessen. TUpdate hat keinen destructor.


Erzeugen tu ich so:

Delphi-Quellcode:

constructor TLiveUpdate.Create;
begin
  FFiles := TObjectList.Create;
  Updates := TObjectList.Create;
  
  Searching := false;
end;