请问为什么无法循环??

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to listview1.Items.Count-1 do
    begin
     Memo2.Lines.Add(label2.Caption+Edit1.Text);
    end;
end;
======================
为什么不是循环执行??

Answer 1

//你的意思应该是这样吧(将listview1的items的名称添加到memo2里面)
procedure TFTestFrm1.Button2Click(Sender: TObject);
var
  i:Integer;
begin
  Memo1.Lines.Clear;
  for i:=0 to listview1.Items.Count-1 do
  begin
    Memo2.Lines.Add(listview1.Items[i].Caption);
  end;
end;

Answer 2

看一下
listview1.Items.Count 的值是多少。procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: Integer; 
begin 
  for i:=0 to 10{listview1.Items.Count-1} do 
    begin 
    Memo2.Lines.Add(label2.Caption+Edit1.Text); 
    end; 
end; 

Answer 3

试一下以代码:procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: Integer; 
begin  if listview1.items.count =0 then showmessage('Count is 0') else
  for i:=0 to listview1.Items.Count-1 do 
    begin 
    Memo2.Lines.Add(label2.Caption+Edit1.Text); 
    end; 
end; 

Answer 4

listview1.Items.Count 确定有值？？？另外循环语句有问题

Answer 5

大家好!感谢各路高手前辈对本问题的关心,感谢!
回应:simonhehe , zxf_feng , tjg5202 几位前辈:
  listview1.Items 一开始窗体时候没有默认的选择,总记录数没有固定,可以为N条记录;
  请问能否窗体开始就自动确认选定第一条记录?==================
回应 yct0605 前辈:阁下说言极是,I没有开始的默认值,尝试执行你代码时候程序没有发现i导致程序无法执行;=======================
回应 simonhehe 前辈:尝试执行你代码时候listview1.items.count 没有默认值,又尝试鼠标点击listview1记录后执行,
执行结果为被选中的记录连续Memo2.Lines.Add写入两次,未能从第一条记录遍历到最后记录;=======================
回应 icjava 前辈:
尝试执行你代码,执行结果被中断,无法执行下去;
====================================================
====================================================
说明:
   文中提及到的Label2.Caption其实是listview1.Items[listview1.ItemIndex].SubItems[i]内容(listview1的第二列内容)