各位专家:
我在delphi循环中使用ListView.Item.Add,为啥
显示了一串第一项图标?请指教?谢谢!

解决方案 »

  1.   

      这是一段delphi7程序,ListView1的Largeimages属性
    是ImageList1,ImageList1中的几个人像图标对应Query1
    数据集中几个人的纪录。
      本想用这段小程序显示出这几个人像和对应的人名,但是
    不知为什么显示的全是第一个人的图像?人名是对的。
    让我更糊涂的是:同是这段程序好像曾经正常显示过。
      请指教毛病出在那里?谢谢!procedure TForm7.FormShow(Sender: TObject);
    var List:TListItem;
    begin
      Query1.Close;
      Query1.Open;
      ListView1.Items.Clear;
      while not Query1.Eof do
      begin
        List:=ListView1.items.Add;
        List.caption:=Query1.fieldByName('姓名').AsString;
        Query1.Next;
      end;
    end;