procedure TForm1.Button6Click(Sender: TObject);
var
dsTemp:TClientDataSet;
begin
dsTemp:=TClientDataSet.Create(nil);
{ 添加字段 }
with dsTemp.FieldDefs.AddFieldDef do
begin
Name := 'ID';
DataType := ftInteger;
end;
with dsTemp.FieldDefs.AddFieldDef do
begin
Name := 'Name';
DataType := ftString;
Size := 12; { ftString 类型的 Size 默认 20 }
end;
with dsTemp.FieldDefs.AddFieldDef do
begin
Name := 'Age';
DataType := ftWord;
end;
with dsTemp.FieldDefs.AddFieldDef do
begin
Name := 'Sex';
DataType := ftBoolean;
end;
{ 构建数据集, 不可缺少的一步 }
dsTemp.CreateDataSet;
{ 显示; 如果在设计时已挂接或不需要显示, 可省略下两行 }
ds.DataSet := dstemp;
{ 添加数据 }
dsTemp.AppendRecord([1, '张三', 33, True]);
dsTemp.AppendRecord([2, '李四', 44, False]);
dsTemp.AppendRecord([3, '王五', 55, True]);
dsTemp.AppendRecord([4, '
Delphi 手工创建TClientDataset 及动态添加数据后最后一条记录不显示的解决方法
最新推荐文章于 2021-09-13 10:14:52 发布