apro connessione su server FTp
leggo i files e se di tipo Directory la scrivo su un TTreView
ottengo una struttura simile, mi posizione sulla radice (path = /)
e leggo i files eventualmente presenti
/ radice
Immagini
Test1
---> 1 figli di Test1
2
3
A
---> A1 figli di A
A2
Test2
Test3
mi sposto su Test1 ,il mio path sarà
Path := Path + '/' + TTreeView.Selected.Text => /Test1
mi sposto ancora su A
Path := Path + '/' + TTreeView.Selected.Text => /Test1/A
ad ogni clisk su TTreeView scatta l'evento OnChange
procedure TForm1.TTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
nNodoAttivo := TVFolder.Selected;
iIdxAssolutoNodo := nNodoAttivo.AbsoluteIndex;
end;
il problema esiste quando torno indietro es click su Test1
non ho riferimenti per risctruire il Path;
conosco l'indice assoluto del nodo
posso fare un ciclo tra tutti i nodi presenti in TreeView1
fino ad incontrare iIdxAssolutoNodo.
ma il Path che costruisco e' sicuramente sbagliato.
es: Path = /Immagini/Test1 (errato) doveva essere /Test1
devo ottenere un comportamento simile a DirectoryListBox di Delphi, o ancora meglio a FileZilla.