|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Rekursiver Aufruf von FTPFindFirstFile
18. Mär 2012, 13:58
Delphi-Quellcode:
procedure ListDir(dir: String; const tv: TTreeView; tn: TTreeNode);
statt
//procedure ListDir(dir: String; const tv: TTreeView; var tn: TTreeNode);
und dann
Delphi-Quellcode:
// wenn Du schon einen Knoten hast z.B.
ListDir('/public_html/install2/', Treeview1, Treeview1.Items[0]);
// wenn Du noch keinen Knoten hast
ListDir('/public_html/install2/', Treeview1, nil);
außerdem alle form1.treeview1. in der Prozedur durch tv. ersetzen ....
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
Geändert von Bummi (18. Mär 2012 um 14:16 Uhr)
|