自动释放数据集

function  TdmService . GetData(sql:  string ): TDBXReader;

var

   cmd: TDBXCommand;

   Reader: TDBXReader;

   LDataSet: TClientDataSet;

begin

   cmd := SQLConnection1 . DBXConnection . CreateCommand;

   try

     cmd . Text := sql;

     Reader := cmd . ExecuteQuery;

     LDataSet := TDBXDataSetReader . ToClientDataSet( nil , Reader,  True );

     Result := TDBXDataSetReader . Create(LDataSet,  True );

   finally

     cmd . Free;

   end ;

end ;