1:
2:
3:
4:
5:
6:
7:

TOrdner=record
  name:String;
  Ordner:Array of TOrdner;
  Dateien:Array of String;
  back:POrdner;
end;
POrdner=^TOrdner;					

1:
2:
3:
4:
5:
6:

TOrdner = class
  name: String; 
  Ordner: TObjectList; // Mit TOrdnern drin 
  Dateien: TStringlist; // bequemer als Array of String, im Prinzip aber dasselbe ;-)
  back: TOrdner; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var List: TObjectList;

//Test ist ein Objekt

//irgendwo
  List.Add(Test);

//irgendwo anders
  List.Delete(List.IndexOf(Test));
  Test.Free;

//alle Objekte durchgehen
var I: Integer;
begin
  for I := 0 to List.Count - 1 do
    MachWas(List[I]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

type
  POrdner=^TOrdner;
  TOrdner = class
    name: String;
    Ordner: TObjectList; // Mit TOrdnern drin
    Dateien: TStringlist; // bequemer als Array of String, im Prinzip aber dasselbe ;-)
    back: POrdner;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure delOrdner(var akt:TOrdner);
var i:Integer;
begin
  For i:=0 to akt.Ordner.Count-1 do
    delOrdner(TOrdner(akt.Ordner[i]));
  akt.Ordner.Free;
  akt.Dateien.Free;
  akt.name:='';
  akt.Free;
end;

procedure newOrdner(var akt:TOrdner;name:String='';last:POrdner=nil);
begin
  akt:=TOrdner.Create;
  akt.name:=name;
  akt.Dateien:=TStringList.Create;
  akt.Ordner:=TObjectlist.Create;
  akt.back:=last;
  if(last<>nil) then last^.Ordner.Add(akt);
end;					

1:
2:
3:
4:
5:

procedure delOrdner(akt:POrdner);
var i:Integer;
begin
  For i:=0 to akt^.Ordner.Count-1 do
    delOrdner(POrdner(@akt^.Ordner[i]));					

1:
2:
3:
4:
5:
6:
7:
8:
9:

type
  //POrdner=^TOrdner; -> das ist Unfug! TOrdner ist schon ein Zeiger.
  TOrdner = class
    name: String;
    Ordner: TObjectList; // Mit TOrdnern drin
    Dateien: TStringlist; // bequemer als Array of String, im Prinzip aber dasselbe ;-)
    back: TOrdner; // eigentlich ist eine Rückwärtsverkettung bei dem
                   // Ansatz TObject/TObjectList unnötig; aber wenn schon, dann richtig.
  end;					

1:
2:
3:

procedure delOrdner(var akt:TOrdner);
//...
procedure newOrdner(var akt:TOrdner;name:String='';last:POrdner=nil);