（在线等，解决马上结帐！）请问下面的语句有什么问题？

Question

procedure TForm1.FormCreate(Sender: TObject);
var
  lst:tstringlist;
  i:integer;
begin
  lst:=tstringlist.create;
  for i:=0 to listbox1.Count-1 do
    lst.Strings[i]:=listbox1.Items[i];
end;

Answer 1

出现什么问题？下面这名看看   
for i:=0 to listbox1.Count-1 do 改成
for i:=0 to listbox1.Items.Count-1 do 

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
var
  lst:tlistitem;----------
  i:integer;
begin
  lst:=tlistitem.create;
  for i:=0 to listbox1.Count-1 do
    lst:=listbox1.Items[i];
end;

Answer 3

没看清楚：)listbox1.Items.Count-1

Answer 4

var
  lst:tstringlist;
  i:integer;
begin
  lst:=tstringlist.create;
  for i:=0 to listbox1.Count-1 do
  begin
    lst.Add(listbox1.Items[i]);
    showmessage(lst.Strings[i])
    end;

Answer 5

var
  lst:tstringlist;
  i:integer;
begin
  lst:=tstringlist.create;
  lst.AddStrings(listbox.items);
end;

Answer 6

lst.Strings[i]是用来取值的，不是用来赋值的，在没有add数据之前，就用string[i]来取数据就会触发异常。
  楼上老兄的写法是对的

Answer 7

错，怎么又来了一个，是 jiju(骏) 的正确

Answer 8

同意jiju(骏) 
另外create了记得要free