救命，一个程序在旧机子上用得好好的，在新机子出问题！

Question

The DecisionCube capacity is low. Please deactivate dimensions or change the data set 出现上述问题，请教高手 ，如何解决。原来在delphi 7.0

Answer 1

http://www.delphibbs.com/keylife/iblog_show.asp?xid=23004

Answer 2

描述 
when the sum of the physical memory and the available page file memory exceeds 2 GBytes, then the DecisionCube raises the following exception: 当总和的物理内存和页面文件可存储超过2 GBytes ，然后DecisionCube提出了以下异常： 
The DecisionCube capacity is low. 该DecisionCube能力低。 Please deactivate dimensions or change the data set. 请停用层面或更改数据集。
 
unit DecisionCubeBugWorkaround;interfaceuses Windows, Mxarrays;implementationfunction GetAvailableMem: Integer;
const
  //MaxInt: Int64 = High(Integer); if Upper than 3 Delphi Version
  MaxInt = High(Integer);
var
  MemoryStatus: TMemoryStatus;
  //AvailableMem: Int64; if Upper than 3 Delphi Version
  AvailableMem: LongInt;
begin
  MemoryStatus.dwLength :=SizeOf(MemoryStatus);
  GlobalMemoryStatus(MemoryStatus);
  AvailableMem:= MemoryStatus.dwAvailPhys;
  if AvailableMem >= 0 then
     AvailableMem:= AvailableMem + MemoryStatus.dwAvailPageFile;  if AvailableMem < 0 then
     Result := MaxInt
  else
     Result := AvailableMem;
end;initialization
  Mxarrays.SetMemoryCapacity(GetAvailableMem);
end.  

Answer 3

我使用的是ado可以用上面的这个方法吗