delphi 中关于 The DecisionCube capacity is low. Please deactivate dimensions or change the data set 错误的处理

描述

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. 请停用层面或更改数据集。

 

这个问题是在使用整数的函数GetAvailableMem ，我解决这个，这个单位加入到该项目中。

 

*********************************************************************************************************************************
unit DecisionCubeBugWorkaround;

interface

uses Windows, Mxarrays;

implementation

function 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.