使用TClientDataSet做虚拟表

在处理一些临时数据时,使用TClientDataSet做为临时表时,是个不错的选择。

procedure TForm1.FormCreate(Sender: TObject);
begin
  ds2.FieldDefs.Clear;
  ds2.FieldDefs.Add('Sel1', ftBoolean);
  ds2.FieldDefs.Add('Sel2', ftBoolean);
  ds2.FieldDefs.Add('Name', ftString, 20);

  ds2.CreateDataSet; //创建虚拟表
  ds2.Open;

  ds2.Append;
  ds2.FieldByName('Sel1').AsBoolean:=True;
  ds2.FieldByName('Sel2').AsBoolean:=True;
  ds2.FieldByName('Name').AsString:='adkfk';
  ds2.Post;

  ds2.AppendRecord([True, False, 'aaaa']);
  //Append Data
end;
 
效果:
as 
原文地址:https://www.cnblogs.com/wjhx/p/1737666.html