使用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;

效果：