自动释放数据集

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;