任意取出某项: procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; begin for i:=0 to ListView1.Items.Count-1 do begin ListBox1.Items.Add(ListView1.Items[i].Caption); for j:=0 to ListView1.Columns.Count-1 do ListBox1.Items.Add(ListView1.Items[i].SubItems[j]); end; end;
edit2.text:=ListView1.Selected.items[0].asstring;//name
edit3.text:=ListView1.Selected.items[1].asstring;//sex
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
for i:=0 to ListView1.Items.Count-1 do
begin
ListBox1.Items.Add(ListView1.Items[i].Caption);
for j:=0 to ListView1.Columns.Count-1 do
ListBox1.Items.Add(ListView1.Items[i].SubItems[j]);
end;
end;
edit2.text:=ListView1.Selected.subitems[0].asstring;//name
edit3.text:=ListView1.Selected.subitems[1].asstring;//sex