头两天,在测试用ListView显示数据集TClientDataSet时,在增加记录后,不能自动在ListView显示。今天看例子找到方法,原来用生成的LinkFillControlToField.BindList.FillList方法即可实现。
i:integer;
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
procedure TForm1.FormCreate(Sender: TObject);
var
begin
end;