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

效果：