Zitat von
hsbc:
jedoch erhalte ich viele Fehlermeldungen
Das liegt wohl daran, dass ich weder Konstruktoren, Destruktoren und sonstigen Verwaltungscode hingeschrieben habe. Zudem habe ich den Code hier direkt im Forum geschrieben, womit er nicht mal "kompiliert" ist.
Zitat:
Delphi-Quellcode:
TDirItem = class(TObject)
private
FSubDirs : TDirList;
FName : string;
FFullPath: string;
public
procedure FillSubDirs;
property Name: string read FName;
property FullPath: string read FFullPath;
property SubDirs: TDirList read FSubDirs;
end;
Du brauchst den Konstruktor und den Destruktor hier, der auch FSubDirs erstellt bzw. zerstört.
[quote]
Delphi-Quellcode:
TDirList = class(TObject)
private
FItems: TObjectList; { of TDirItem }
public
procedure Add(AItem: TDirItem);
procedure Clear;
property Count: Integer read GetCount;
property Items[Index: integer]: TDirItem read GetItem; default;
end;
Dito. Nur muss du hier FItems erstellen/zerstören. Und das Add und Clear solltest du natürlich auch programmieren. Einfach an FItems.Add bzw. FItems.Clear durchschleifen.