问题：当listbox2中有如下数据时.................//瑶瑶

Question

根据ListBox1.Items.Count循环～～～～～～ListBox1.Items.Strings[i]～～这个就是每一项的内容～～

Answer 1

var 
i:integer;
SelectStr:string;
begin
  SelectStr:='';
  for i:=0 to ListBox2.Items.Count-1 do
  begin
    SelectStr:=SqlStr+ ListBox2.Items.Strings[i]+',';  
    SelectStr:=SelectStr+',';
   end;
  Delete(SelectStr,length(SelectStr-1,2); 
end;

Answer 2

var
i:integer;
SelectStr:string;
begin
  SelectStr:='';
  for i:=0 to ListBox2.Items.Count-1 do
  begin
    SelectStr:=SelectStr+ ListBox2.Items.Strings[i]+',';
    edit1.text:=selectstr;
  end;