Problem mit Freigabe von TStringList.Objects

[tomaten]

Hallo, ich möchte Objekte, die ich einer TStringList zugewiesen habe wieder freigeben. Leider wird der Destructor des entsprechenden Objekts nicht aufgerufen :( :

Delphi-Quellcode:

for f := 0 to Liste.Count - 1 do
    if Assigned(Liste.Objects[f]) then
        Liste.Objects[f].Free;

Hab ich da einen Denkfehler? Ich habe auch schon folgendes probiert:

Delphi-Quellcode:

for f := 0 to Liste.Count - 1 do
    if Assigned(Liste.Objects[f]) then
        TType(Liste.Objects[f]).Free;

TType = der entsprechende Klassentyp (ist ja bekannt).

[Christian Seehase]

Moin Thomas,

sieht für mich soweit richtig aus :gruebel:

Wie sieht denn den Destruktor des Objektes aus?

[tomaten]

Naja, normal halt:

Delphi-Quellcode:

  TMyClass = class
...
    destructor Destroy; override;
...
destructor TMyClass.Destroy;
begin
    AllesFreigeben; // ;)
end;

[tomaten]

Keiner eine Idee? :(

[marabu]

Hallo Thomas,

du solltest relevanten Code zeigen, damit Hilfe möglich wird.

Frohe Weihnachten vom marabu

[tomaten]

Hm, also ich weiss nicht ob es an der Uhrzeit lag, oder an etwas anderem, aber jetzt funktioniert es. :pale: