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.
浙公网安备 33010602011771号