for i:= 0 to ListView1.Items.Count-1 do begin if ListView1.Items[i].Selected then Item:=ListView2.Items.add; Item.Caption:=ListView1.Items[i].Caption end;
var I: Integer; begin for I := 0 to ListView1.Items.Count - 1 do if ListView1.Items[I].Selected then with ListView2.Items.Add do begin Caption := ListView1.Items[I].Caption; SubItems.Text := ListView1.Items[I].SubItems.Text; ImageIndex := ListView1.Items[I].ImageIndex; end; end;
begin
if ListView1.Items[i].Selected then
Item:=ListView2.Items.add;
Item.Caption:=ListView1.Items[i].Caption
end;
I: Integer;
begin
for I := 0 to ListView1.Items.Count - 1 do
if ListView1.Items[I].Selected then
with ListView2.Items.Add do
begin
Caption := ListView1.Items[I].Caption;
SubItems.Text := ListView1.Items[I].SubItems.Text;
ImageIndex := ListView1.Items[I].ImageIndex;
end;
end;