16,748
社区成员
发帖
与我相关
我的任务
分享
//你的意思应该是这样吧(将listview1的items的名称添加到memo2里面)
procedure TFTestFrm1.Button2Click(Sender: TObject);
var
i:Integer;
begin
Memo1.Lines.Clear;
for i:=0 to listview1.Items.Count-1 do
begin
Memo2.Lines.Add(listview1.Items[i].Caption);
end;
end;