Delphi：如何快速创建嵌入式DataSource

Question

我只是想展示TDBCtrlGrid的可能性，我想尽可能快地创建4条记录，TDBCtrlGrid应该访问这4条记录，4次绘制自定义内容。

你是怎么做到的？

Answer 1

快速解决方案，可与TAdodataset或TClientDataset id一起使用，为FieldDefs.Add添加字段，并使用CreateDataSet创建/打开数据集。

var
  i: Integer;
begin
  ADODataSet.FieldDefs.Add('ID', ftInteger);
  ADODataSet.FieldDefs.Add('Text', ftString, 50);
  ADODataSet.CreateDataSet;
  for i := 1 to 4 do
  begin
    ADODataSet.Append;
    ADODataSet.Fields[0].Value := 1;
    ADODataSet.Fields[1].Value := Format('Text %d', [i]);
    ADODataSet.Post;
  end;
end;

另一种解决方案可能是从资源流加载数据，该数据流是从之前设计和填充的数据集创建的，保存为XML。