procedure TFrmzhiywh.SpeedButton1Click(Sender: TObject);
var ListItem: TListItem;
begin
with listview2 do
begin
for i:=0 to ListView1.Items.Count -1 do
begin
if listview1.Items[i].Checked then
begin
ListItem:=Items.Add;
listitem.Caption:=listview1.Items[i].Caption;
listitem.SubItems.Add(listview1.Items[i].SubItems[0]);
end;
end;
end;
end;照此方法就可以!!
var ListItem: TListItem;
begin
with listview2 do
begin
for i:=0 to ListView1.Items.Count -1 do
begin
if listview1.Items[i].Checked then
begin
ListItem:=Items.Add;
listitem.Caption:=listview1.Items[i].Caption;
listitem.SubItems.Add(listview1.Items[i].SubItems[0]);
end;
end;
end;
end;照此方法就可以!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货