Hallo!
Sorry das ich erst so spät antworte, aber letzte Woche Freitag hatte ich Urlaub und dabei ganz vergessen, dass ich ja hier noch was gepostet hatte!
Ich habe jetzt mal die verschiedenen Sachen ausprobiert, allerdings bringt er mir jedesmal ne Fehlermeldung!
Könnte es daran liegen, dass ich keinen TreeView sondern einen VirtuelExplorerTreeview benutze?
Also mein Code sieht jetzt folgendermassen aus:
Code:
[1]procedure Tpath.path_treeChange(Sender: TBaseVirtualTree;
[2] Node: PVirtualNode);
[3]
[4]var
[5] sPath : string;
[6] tnWork : PVirtualNode;
[7]
[8]begin
[9] // Kein Node angeklickt, dann gibt's auch nichts zu tun
[10] if path_tree.Selected = nil then exit;
[11] tnWork := path_tree.Selected;
[12] sPath := '';
[13] repeat
[14] sPath := tnWork.Text + '\' + sPath;
[15] tnWork := tnWork.Parent;
[16] until tnWork = nil;
[17] path_show.Text := sPath;
[18]end;
Und die Fehlermeldung in Zeile 10 lautet:
[Fehler] eraser_path.pas(96): '[' erwartet, aber '=' gefunden
Das wäre jetzt eine von 3 Fehlermeldungen!
Kann mir jemand dabei Helfen, denn ich komme absolut nicht weiter!
Danke schon mal!
Eleonora