Dateien auf FTP Server in Listview darstellen

[Sharky]

Schau Dir mal dieses Beispiel von mir an:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  new_Column : TListColumn;
begin
  ListView1.ViewStyle := vsReport;
  ListView1.Items.Clear;
  ListView1.Columns.Clear;
  ListView1.Font.Name := 'Courier New';
  new_Column := ListView1.Columns.Add;
  new_Column.Caption := 'Eintrag';
  new_Column.Width := -1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  ndx: Integer;
  item: TListItem;
begin
  with IdFTP1 do
  begin
    Username := 'test';
    Password := 'test';
    Host := 'localhost';
    Connect;
    sl := TStringList.Create;
    try
      List(sl);
      for ndx := 0 to Pred(sl.Count) do
      begin
        item := ListView1.Items.Add;
        item.Caption := sl.Strings[ndx];
      end;
    finally
      sl.Free;
    end;
  end;
end;

Damit solltest Du auf jeden Fall weiter kommen.