delphi 临时表的创建及使用

//创建临时表格
function TForm1.CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet;
var
  TempTable:TClientDataSet;
begin
  TempTable := nil;
  Result :=nil;
  if AFieldDefs <> nil then
  begin
    try
      TempTable := TClientDataSet.Create(Application);
      TempTable.FieldDefs.Assign(AFieldDefs);
      TempTable.CreateDataSet;
      Result := (TempTable as TDataSet);
    except
      if TempTable <> nil then
        TempTable.Free;
      Result := nil;
      raise;
    end
  end
end;

 

//调用

procedure TForm1.Button1Click(Sender: TObject);
var
  ADataSet:TDataSet;
begin
  ADataSet:=TDataSet.Create(Self);
  with ADataSet.FieldDefs do
  begin
    Add('Name',ftString,30,False);
    Add('Value',ftInteger,0,False);
  end;
  with DataSource1 do
  begin
    DataSet:=CreateTableInMemory(ADataSet.FieldDefs);
    DataSet.Open;
  end;
  ADataSet.Free;
end;