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;