edit1.text:=ListView1.Selected.Caption;

解决方案 »

  1.   

    edit1.text:=ListView1.Selected.Caption;//id
    edit2.text:=ListView1.Selected.items[0].asstring;//name
    edit3.text:=ListView1.Selected.items[1].asstring;//sex
      

  2.   

    任意取出某项:
    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;
      

  3.   

    edit1.text:=ListView1.Selected.Caption;//id
    edit2.text:=ListView1.Selected.subitems[0].asstring;//name
    edit3.text:=ListView1.Selected.subitems[1].asstring;//sex
      

  4.   

    edit1.text:=ListView1.Selected.Caption