ok ich hab mir inzwischen so weitergeholfen:
Delphi-Quellcode:
procedure TMain_Form.btn_shwfilesClick(Sender: TObject);
var
blEntrys : Boolean;
i : Integer;
s :
String;
slFiles : TStringList;
begin
blEntrys := True;
If edt_directory.Text = '
'
Then
Begin
MessageDlg('
Some Entrys are Missing!', mtWarning, [mbOk], 0);
blEntrys := False;
End;
If blEntrys = True
Then
Begin
FTP.ChangeDir(edt_directory.Text);
End;
slFiles := TStringList.Create;
FTP.List(slFiles, '
*', True);
For i := 0
To slFiles.Count - 1
Do
Begin
lstbox_files.Items.Add(slFiles.Strings[i]);
End;
end;
jetzt hab ich nur noch das problem, das ich zusätzlich zu dem dateinamen viel unnützen schrott mit angezeigt bekommen...
z.B.
"drw-rw-rw- 1 user group 62119 Sep 11 23:00 Dateiname.txt"