liste alle FTP Daten. hatt noch kleine Fehler

[Deltachaos]

Zitat von Die Muhkuh:

Doch, kann sie.

Ok.
Ich hab jetzt mal angefangen:

Delphi-Quellcode:

procedure list(inhalt: string);
var strlist: tstringlist;
    ver_merk: string;
    ex, dir_ja, dir_nein: boolean;
    sl,z,d: integer;
begin
  form1.IdFTP1.List(form1.ListBox2.Items,'',false);
  for z:=0 to form1.ListBox2.Count-1 do
  begin
    for sl:=0 to length(form1.ListBox2.Items[z]) do
      if form1.ListBox2.Items[z][sl]= '/'
        then form1.IdFTP1.ChangeDirUp;
    for d:=0 to length(form1.ListBox2.Items[z]) do
    begin
      dir_ja:= false;
      dir_nein:= true;
      if form1.ListBox2.Items[z][d]= '.'
        then
        begin
          dir_ja:= true;
          dir_nein:= false;
        end;
    end;
    if dir_nein then
    begin
      ver_merk:= ver_merk + form1.ListBox2.Items[z] + '/';
      list(form1.ListBox2.Items[z]);
    end;
    if dir_ja
    then
    begin
      form1.ListBox1.AddItem(ver_merk + form1.ListBox2.Items[z], TObject (form1));
    end;
  end;
end;

Ich komme aber irgendwie nicht weiter.
Es werden jetzt wieder alle verzeichnisse und Daten gelistet di im root liegen.