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;