Forum: Netzwerke
Delphi
by jfheins,
3. Nov 2008
Kannst du, ist aber ineffizienter als die zweite Lösung ;)
procedure TForm1.auflisten(CurrentNode: TTreeNode);
var
i: integer;
l: TIdFtpListItems;
dirs: TStringList;
current: TTreeNode;
begin
dirs := TStringList.Create();
Forum: Netzwerke
Delphi
by jfheins,
3. Nov 2008
Ist es doch ;)
Den hier: l:=idftp1.DirectoryListing; "merkst" du dir zwar, wo dein Listing ist, kopierst es aber nicht ;)
d.h. sobald du auf ein Verzeichnis stößt, ruft dieses wieder idftp.list auf und überschreibt damit dein Listing der aufrufenden Funktion.
Lösung 1: Kopieren. Also alle namen in eine Streingliste kopiren, und durch diese iterieren.
Lösung 2: Du tust erstmal alles...