你试一下,用的是ADODateSet来创建:
...
adsTest: TADODataSet;
...
procedure TfrmAdsData.FormCreate(Sender: TObject);
var
i: Integer;
begin
with adsTest.FieldDefs.AddFieldDef do
begin
Name := 'spring';
Size := 8;
DataType := ftString;
end;
with adsTest.FieldDefs.AddFieldDef do
begin
Name := 'summer';
Size := 8;
DataType := ftString;
end;
with adsTest.FieldDefs.AddFieldDef do
begin
Name := 'autumn';
Size := 8;
DataType := ftString;
end;
with adsTest.FieldDefs.AddFieldDef do
begin
Name := 'winter';
Size := 8;
DataType := ftString;
end;
adsTest.CreateDataSet; {创建临时表}
adsTest.Open;
for i := 0 to 12 do {写入数据}
begin
adsTest.Append;
adsTest.FieldByName('spring').AsString := 'Spring ' + IntToStr(i);
adsTest.FieldByName('summer').AsString := 'Summer ' + IntToStr(i);
adsTest.FieldByName('autumn').AsString := 'Autumn ' + IntToStr(i);
adsTest.FieldByName('winter').AsString := 'Winter ' + IntToStr(i);
adsTest.Post;
end;
end;
...