Rekursives Freigeben einer TStringList // Compilerfehler

[Caps]

Moin,

nur zur Unterhaltung: es geht doch, wenn auch nur mit abenteuerlichem Herumgecaste:

Delphi-Quellcode:

procedure FreeStringList(var List);
var
  i: Integer;
  Obj, Obj_: TObject;
  List_: TStringList;
begin
  Obj := TObject(List);
  if Obj <> nil then begin
    if Obj is TStringList then begin
      List_ := TStringList(Obj);
      with List_ do begin
        if Count > 0 then begin
          for i:=0 to Count-1 do begin
            if Objects [i] <> nil then begin
              Obj_ := Objects [i];
              FreeStringList(Obj_);
            end;
          end;
        end;
      end;
    end;
    TObject(List).Free;
    TObject(List) := nil;
  end;
end;

lg Caps