新建一 DataSet , 并加入数据 : prepareTable
function TFrm_Print.CreateTableInMemory(co t AFieldDefs:TFieldDefs):TDataSet;
var
  TempTable:TClientDataSet;
begin
  TempTable:=nil;
  Result:=nil;
  if AFieldDef lt gt il then
  begin
  try
  TempTable:=TClientDataSet.Create(A lication);
  TempTable.FieldDefs.A ign(AFieldDefs);
  TempTable.CreateDataSet;
  Result:=(TempTable as TDataSet);
  Except
  if TempTable< gt il then
  TempTable.Free;
  raise;
  end
  end;
end;

procedure TFrm_Print.CreateDataSet(var gDataSet:Tdataset);
var ADataSet:TDataSet;
begin
  try
  if a igned(gDataSet) then gDataSet.free;
  except
  end;
  ADataSet:=TDataSet.Create(Self);
  try
  with ADataSet.FieldDefs do
  begin
  add('OrderNo',ftInteger);
  add('prjName',ftString,200);
  add('srcPrice',ftFloat);
  end;
  gDataSet:=CreateTableInMemory(ADataSet.FieldDefs);
  gDataSet.Ope 
  finally
  ADataSet.Free;
  end;
end;

procedure Tfrm_GoodsMg.prepareTable(var gDataSet:Tdataset);
  procedure prepareDataSet;
  begin
{  while not 数据源.eof do begin
  gDataSet.a end;
  gDataSet.fieldbyname('OrderNo').asInteger:= I_Value;
  gDataSet.fieldbyname('prjName').a tring := A_Value;
  gDataSet.fieldbyname('OrderNo').asFloat  := D_value;
  gDataSet.post;
  数据源.next;
  end  }
  end;
begin
  CreateDataSet(gDataSet);
  prepareDataSet;
end;

procedure getMyDataSet()
var myDataSet:Tdataset
begin
  prepareTable(myDataSet) 
  myDataSet.free;
end;