Hi,
ich glaube Yheeky will das nicht in der Treeview speichern, sondern unabhängig.
@Yheeky
Delphi-Quellcode:
type
TOrdner = class(TObject)
Ordnername : String;
Expanded: Boolean;
Unterordner : TOrdner;
Dateien : TDatei;
end;
aber das ist nicht richtig, denn dein Unterordner ist ja nicht nur einer, sondern eine Liste, genauso wie deine Dateien.
also
Delphi-Quellcode:
type
TOrdner = class(TObject)
Ordnername : String;
Expanded: Boolean;
Unterordner : TOrdnerListe;
Dateien : TDateiListe;
end;
d.h. Du hast für die Ordnergeschichten 2 Objekte nötig
Delphi-Quellcode:
type
TOrdnerliste = class;
TOrdner = class
...
UnterOrdner: tOrdnerliste;
end;
TOrdnerListe = class
...
end;
dann musst Du die TOrdnerliste als Klasse bekanntmachen, dann kannst Du sie erst mal im TOrdner verwenden. Das ist eine Forward-Deklaration. Nach der Definition von TOrdner kommt dann die vollständige Definition von TOrdnerliste.
Damit das klappt, müssen allerdings beide Klassen in einer
Unit untergebracht sein. Sie gehören ja auch irgendwie zusammen, und sollten sich daher nicht soweit voneinander weg bewegen
Gruss