Rekursives Freigeben einer TStringList // Compilerfehler

[Delphi.Narium]

Ursprünglich ging es doch eigentlich darum, dass es einen Kompilierfehler gab. Bei meinem ollen Delphi 7 gibt es den mit diesem veränderten Code nicht mehr. Reicht das zur Problemlösung?

Delphi-Quellcode:

procedure FreeStringList(var List: TStringList);
var
   i      : Integer;
   myList : TStringList;
begin
  if Assigned(List) then begin
    for i := 0 to List.Count - 1 do begin
      if Assigned(List.Objects[i]) then begin
        if List.Objects[i] is TStringList then begin
          myList := TStringList(List.Objects[i]);
          // Unterknoten freigeben ...
          FreeStringList(myList);
        end else begin
          // Blatt freigeben ...
          FreeAndNil(List.Objects[i]);
        end;
      end;
    end;
    FreeAndNil(List);
  end;
end;

Wenn ein Funktionsparameter mit var angegeben wird, dann kann man da halt keinen Cast ala TStringList(irgendeinobjekt) reingeben (derweil das ist dann const), man muss sich die Mühe machen, dort eine Variabel zu übergeben. Es ist also der Aufwand einer Variabelndeklaration des passenden Types und eine Zuweisung des Casts TStringList(irgendeinobjekt) an die entsprechende Variabel nötig. Die Variabel kann man dann problemlos in der Funktionsaufruf schreiben und der Compiler ist's zufrieden.

Und wie immer: Man kann grundsätzlich jedes Problem auch irgendwie anders lösen, aber vielleicht reicht diese einfache Änderung ja auch aus