在处理一些临时数据时,使用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;
效果: