delphi - 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。