VirtualStringTree-Nachladen erst bei Bedarf

[jbg]

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.