listview1控件先放到窗体上。
var
NewItem: TListItem;
NameList: TstringList;
i: Integer;
NewColumn: TListColumn;
begin
NameList.Assign(NMFTP.list);//文件列表
Listview1.ViewStyle := vsReport;
NewColumn := Listview1.Columns.Add;
NewColumn.Caption := '文件名';
For i := 0 to NameList.Count - 1 do
begin
NewItem := ListView1.Items.Add;
NewItem.caption := NameList[i];
end;2. image1.Picture.Assign(nil);
var
NewItem: TListItem;
NameList: TstringList;
i: Integer;
NewColumn: TListColumn;
begin
NameList.Assign(NMFTP.list);//文件列表
Listview1.ViewStyle := vsReport;
NewColumn := Listview1.Columns.Add;
NewColumn.Caption := '文件名';
For i := 0 to NameList.Count - 1 do
begin
NewItem := ListView1.Items.Add;
NewItem.caption := NameList[i];
end;2. image1.Picture.Assign(nil);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货