So langsam wirds mir peinlich...
Ich steh da wie'n Ochs vorm Berg, so weit hab ichs nu übertragen:
Delphi-Quellcode:
PROCEDURE TForm3.Ftpverzeichnis(DirName: STRING);
VAR
stringliste: TStringList;
i: Integer;
BEGIN
Stringliste := TStringList.Create; // Stringliste erzeugen
TRY
IdFTP1.ChangeDir(DirName);
Form1.EDftpverzeichnis.Text := IdFTP1.RetrieveCurrentDir; // Aktuelles Verzeichnis in die Combobox zur Verzeichnisauswahl schreiben
Form1.Listftpdir.Items.Clear; // Verzeichnisanzeige leeren
IdFTP1.List(Stringliste);
Form1.Listftpdir.Items.Assign(Stringliste);
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
FOR i := 1 TO Form1.Listftpdir.Items.Count DO
WITH Form1.Listftpdir.Items.Add DO
Caption := Stringliste.Strings[i - 1];
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
FINALLY
Stringliste.Free;
END;
END;
So hab ichs eingebunden:
Delphi-Quellcode:
IF Idftp1.Connected THEN
ChangeDir(idftp1.RetrieveCurrentDir);
Watt mach ich da mal wieder falsch?
*nix kapiert*
Was macht dein Code eigentlich GENAU?