Delphi XE6 学习笔记(9)手动填充ListView及ListBox

头两天,在测试用ListView显示数据集TClientDataSet时,在增加记录后,不能自动在ListView显示。今天看例子找到方法,原来用生成的LinkFillControlToField.BindList.FillList方法即可实现。

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for I := 0 to 9 do
  begin
    clientdataset1.Append;
    clientdataset1.Fields[0].AsString:='Delphi XE6!';
    clientdataset1.Post;
  end;
  linkFillControlToField1.bindlist.FillList;//填充ListView
  LinkFillControlToField2.BindList.FillList;//填充ListBox
end;

Delphi <wbr>XE6 <wbr>学习笔记(9)手动填充ListView及ListBox
阅读更多
换一批

没有更多推荐了,返回首页