Och nööö - zu früh gefreut
Delphi-Quellcode:
PROCEDURE TForm3.ChangeDir(DirName: STRING);
VAR
stringliste: TStringList;
i: Integer;
BEGIN
Stringliste := TStringList.Create; // Stringliste erzeugen
splitString('Part1|Part2|Part3', '|'; Stringliste);
TRY
IdFTP1.ChangeDir(DirName);
// IdFTP1.TransferType := ftBinary;
Form1.Listftpdir.Items.Clear; // Verzeichnisanzeige leeren
IdFTP1.List(Stringliste);
FOR i := 1 TO Stringliste.Count DO
WITH Form1.Listftpdir.Clumns[0] DO
Caption := Stringliste.Strings[i - 1];
FINALLY
Form1.EDftpverzeichnis.Text := IdFTP1.RetrieveCurrentDir; // Aktuelles Verzeichnis in die Combobox zur Verzeichnisauswahl schreiben
Stringliste.Free;
END;
END;
Oh mann ich bin so saudumm, ich hab wirklich keinen Schimmer wie das zum Teufel nochmal zu funktionieren hat
...
Mir ist schon klar, dass man "Part1,2" etc. durch irgendwas ersetzen muss aber durch was?