var i:integer; begin listbox2.Items.Clear; for i:=0 to listbox1.Items.Count-1 do begin if listbox1.Selected[i] then begin listbox2.Items.Add(listbox1.Items.Strings[i]); end; end;end;
procedure TForm4.ListBox1DblClick(Sender: TObject); var i:integer; move :boolean; begin move:=true; for i:=0 to listbox2.Items.Count-1 do begin if listbox2.Items.Strings[i]=listbox1.Items.Strings[listbox1.ItemIndex] then begin move:=False; break; end; end; if move then begin listbox2.Items.Add(listbox1.Items.Strings[listbox1.ItemIndex]); end; end;
这样如下将listview1的3条item添加到listview2中 var i : integer; begin for i:= 0 to 2 do begin Listview2.AddItem('',nil); Listview2.Items[i] := Listview1.Items[i]; end; end;
var ItemNum,I : integer; Lvshow : TlistItem; begin ItemNum:=listview1.items.count; for I:=0 to ItemNum-1 do begin Lvshow:=listview2.items.add; Lvshow.caption:=listview1.items[i].caption; Lvshow.Subitem.add(listview1.items[i].subitem[0]); . . . //把listview1的列值加到listview2中 end; end;
这样如下将listview1的3条item添加到listview2中 var i : integer; begin for i:= 0 to 2 do begin Listview2.AddItem('',nil); Listview2.Items[i].Assign(Listview1.Items[i]); end; end;
TO 407107() Listview2.AddItem('',nil); 中的AddItem是什么意思?
如果是针对 Listview1 中所选择的多条记录 ,将其传到 Listview2 中, 以下这种方法效率比较高。 建意使用,大家有更好的想法可以贴出来 while Listview1.SelCount>0 do Begin With Listview2.Items.Add DO Begin Caption := Listview1.Selected.Caption; SubItems.Add(Listview1.Selected.SubItems[0]); End; Listview1.Selected.Delete; End;
i:integer;
begin
listbox2.Items.Clear;
for i:=0 to listbox1.Items.Count-1 do
begin
if listbox1.Selected[i] then
begin
listbox2.Items.Add(listbox1.Items.Strings[i]);
end;
end;end;
var
i:integer;
move :boolean;
begin
move:=true;
for i:=0 to listbox2.Items.Count-1 do
begin
if listbox2.Items.Strings[i]=listbox1.Items.Strings[listbox1.ItemIndex] then
begin
move:=False;
break;
end;
end;
if move then
begin
listbox2.Items.Add(listbox1.Items.Strings[listbox1.ItemIndex]);
end;
end;
var
i : integer;
begin
for i:= 0 to 2 do begin
Listview2.AddItem('',nil);
Listview2.Items[i] := Listview1.Items[i];
end;
end;
ItemNum,I : integer;
Lvshow : TlistItem;
begin
ItemNum:=listview1.items.count;
for I:=0 to ItemNum-1 do
begin
Lvshow:=listview2.items.add;
Lvshow.caption:=listview1.items[i].caption;
Lvshow.Subitem.add(listview1.items[i].subitem[0]);
.
.
.
//把listview1的列值加到listview2中
end;
end;
var
i : integer;
begin
for i:= 0 to 2 do begin
Listview2.AddItem('',nil);
Listview2.Items[i].Assign(Listview1.Items[i]);
end;
end;
Listview2.AddItem('',nil);
中的AddItem是什么意思?
Begin
With Listview2.Items.Add DO
Begin
Caption := Listview1.Selected.Caption;
SubItems.Add(Listview1.Selected.SubItems[0]);
End;
Listview1.Selected.Delete;
End;