创建无链接记录集

procedure TForm1.Button1Click(Sender: TObject);

 var
  tempdataset:tclientdataset;
begin

 tempdataset:=tclientdataset.Create(nil);

tempdataset.FieldDefs.Clear;
tempdataset.FieldDefs.Add('name',ftstring,50,true);
tempdataset.CreateDataSet;
 tempdataset.FieldByName('name').DisplayLabel := '发生时间';

tempdataset.Append ;
tempdataset.FieldByName('name').AsString:='bbbb';
tempdataset.Post ;

 tempdataset.Append ;
tempdataset.FieldByName('name').AsString:='tttttt';
tempdataset.Post ;

 

 self.DataSource1.DataSet:=tempdataset;

end;

end.