Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Prism Treeview in Memo (https://www.delphipraxis.net/83281-treeview-memo.html)

maximus Caesar 30. Dez 2006 13:59


Treeview in Memo
 
Hallo!
Ich habe ein Treeview und ein Memo. Ich möchte den Aufbau des TreeView in einer Datei Speichern. Das Laden funktioniert bereits.
Leider hat mir die Forensuche nicht geholfen (oder ich war zu blöd zum richtig lesen... :wall: )
Ich möchte es nach diesem Muster:

Eintrag1
-Untereintrag1
-Untereintrag2
-Eintrag2

usw.
Also ein Normaler Eintrag einfach nur mit dem Namen,
ein Untereintrag davon mit einem "-" davor.
Das ganze soll in ein Memo geschrieben werden.
Kann mir jemand helfen?

DocBorn 30. Dez 2006 15:10

Re: Treeview in Memo
 
das ist in soweit natürlich gefährlich, weil es ja passieren kann, dass ein Eintrag im Tree mit einem Bindestrich beginnt. Ich weiß leider nicht mehr genau wie man mit TreeViews umgeht, nutze nur noch TTree der eldos-Komponenten aber prinzipiell würde ich eine Funktion schreiben, die wichtige 2 Parameter übernimmt, der erste ist ein Element im Tree und der andere dessen Ebene.
  • Erstmal den aktuellen Eintrag mit so vielen Bindestrichen wie es von dem zweiten Parameter angegeben wird in das Memo schreiben
  • Dann alle Einträge, die an dem aktuellen dran hängen durchgehen und für jeden einmal die gleiche Funktion aufrufen mit eben diesem Eintrag als ersten Parameter und Ebene+1 als zweiten Parameter. Rekursiv sozusagen ;)
  • Naja und dann einfach diese Funktion mit der Wurzel des TreeViews aufrufen
leider habe ich schon wirklich lange nicht mehr mit TreeViews gearbeitet und hoffe, dass das alles damit so geht wie ich mir das hier gerade vorgestellt habe ;)

Lg Lars

Lannes 30. Dez 2006 22:53

Re: Treeview in Memo
 
Hallo,
Zitat:

Zitat von maximus Caesar
...
Ich möchte den Aufbau des TreeView in einer Datei Speichern...

dafür gibt es die Methoden
TreeView.LoadFromFile und TreeView.SaveToFile.

Falls es die Variante mit '-' und einem Memo sein soll, schlage ich den Code vor:
Delphi-Quellcode:
for z := 0 to TreeView.Items.Count-1 do
  with TreeView.Items[z] do
    Memo.Lines.Add(StringOfChar('-',Level)+Text);


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz