ClientDataSet := TClientDataSet.Create(Self);
with ClientDataSet do
begin
with FieldDefs.AddFieldDef do
begin
DataType := ftInteger;
Name := 'a';
end;
with FieldDefs.AddFieldDef do
begin
DataType := ftString;
Name := 'b';
Size := 10;
end;
CreateDataSet;
indexfieldnames := 'a';
end;

这样是空的，没数据