如何显示ListBox1中的选中的信息到指定的EDIT中

Question

如何显示ListBox1中的选中的信息到指定的EDIT中

Answer 1

显示信息到
edit1.text
edit2.text
edit3.text
edit4.text

Answer 2

ListBox1.Items.Strings[ListBox1.ItemIndex]

Answer 3

  Edit1.Text :=  Listbox1.Items[listbox1.ItemIndex]

Answer 4

不行呀,这样的话,所有都在Edit1.text中,错误的显示如下:
Edit1.text=10000001,王一,85,75
Edit2.text=10000001,王一,85,75
Edit3.text=10000001,王一,85,75
Edit4.text=10000001,王一,85,75

Answer 5

for i:=0 to 3 do
begin
  if i:=0 then 
  edit1.text:=Listbox1.Items.strings[i];
  if i:=1 then 
  edit2.text:=Listbox1.Items.strings[i];
  if i:=2 then 
  edit3.text:=Listbox1.Items.strings[i];
  if i:=3 then 
  edit3.text:=Listbox1.Items.strings[i];
end;
不支持用edit去显示这里面的内容，如果你listbox里面的值是数量不固定的。

Answer 6

var
  Sl: TStringList;  //分离字符串
begin
   //显示相应的记录集
   //[10000008  欧阳一天  150  115] 长度28
   //[10000007  上官飞飞  88  75]   长度26
   //Edit1.text:=ListBox1.Items[ListBox1.ItemIndex];
    Sl:= TStringList.Create;
    Sl.CommaText:=ListBox1.Items[ListBox1.ItemIndex];
    Edit1.text:=trim(Sl[0]);
    Edit2.text:=trim(Sl[1]);
    Edit3.text:=trim(Sl[2]);
    Edit4.text:=trim(Sl[3]);
end;

Answer 7

最后的处理方法,我是参考这个完成的,谢谢了>>>>>>>>>>>>>>>>>>>>>>