Hallöle,
ich möchte mit einer Prozedur eine Stringliste rekursiv freigeben.
Hintergrund:
Ich verwende Stringlisten, an deren
Objects-Eigenschaft(en) weitere Stringlisten hängen, so dass sich ein Baum als Datenstruktur ergibt.
Die Funktion ist angelehnt an
FreeAndNil() und sieht folgendermaßen aus:
Delphi-Quellcode:
procedure FreeStringList(var List: TStringList);
var
i: Integer;
begin
if List <> nil then with List do begin
if Count > 0 then begin
for i:=0 to Count-1 do begin
if Objects [i] <> nil then begin
if Objects [i].ClassNameIs('TStringList') then
// Unterknoten freigeben...
FreeStringList(TStringList(Objects [i])) // Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden
else begin
// Blatt freigeben...
Objects [i].Free;
Objects [i] := nil;
end;
end;
end;
end;
FreeAndNil(List);
end;
end;
Ich habe zwei Probleme damit, die sich gegenseitig ausschließen, je nachdem ob ich den Parameter
List als
var-Parameter oder als normale Objektreferenz (ohne
var) übergebe:
1) Übergebe ich
List mit
var, erhalte ich die im Code als Kommentar ersichtliche Fehlermeldung.
2) Übergebe ich
List ohne
var, so wird die übergebene Referenz nicht auf
nil gesetzt, d.h. nach Anwendung der Funktion auf eine Stringliste ist zwar das Objekt weg, aber die Referenz nicht
nil.
Ich stehe ein wenig auf dem Schlauch.
Wie kann ich denn meine Datenstruktur nun rekursiv freigeben?
Grüße!
Caps