德爾福：如何快速創建嵌入式數據源

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進行數據加載。