decisioncube出现bug,显示“the desicioncube capacity is low. please deactivate dimensions or change the data set.”在网上找到一下这段解决本bug的代码,但是不知道该添加在哪里。。
哪位大侠知道该怎么办呢??
unit DecisionCubeBugWorkaround;interfaceuses Windows, Mxarrays;implementationfunction GetAvailableMem: Integer;const MaxInt: Int64 = High(Integer);var MemStats: TMemoryStatus; Available: Int64;begin GlobalMemoryStatus(MemStats); if (MemStats.dwAvailPhys > MaxInt) or (Longint(MemStats.dwAvailPhys) = -1) then Available := MaxInt else Available := MemStats.dwAvailPhys; if (MemStats.dwAvailPageFile > MaxInt) or (Longint(MemStats.dwAvailPageFile) = -1) then Inc(Available, MaxInt div 2) else Inc(Available, MemStats.dwAvailPageFile div 2); if Available > MaxInt then Result := MaxInt else Result := Available;end;initialization Mxarrays.SetMemoryCapacity(GetAvailableMem);end.
哪位大侠知道该怎么办呢??
unit DecisionCubeBugWorkaround;interfaceuses Windows, Mxarrays;implementationfunction GetAvailableMem: Integer;const MaxInt: Int64 = High(Integer);var MemStats: TMemoryStatus; Available: Int64;begin GlobalMemoryStatus(MemStats); if (MemStats.dwAvailPhys > MaxInt) or (Longint(MemStats.dwAvailPhys) = -1) then Available := MaxInt else Available := MemStats.dwAvailPhys; if (MemStats.dwAvailPageFile > MaxInt) or (Longint(MemStats.dwAvailPageFile) = -1) then Inc(Available, MaxInt div 2) else Inc(Available, MemStats.dwAvailPageFile div 2); if Available > MaxInt then Result := MaxInt else Result := Available;end;initialization Mxarrays.SetMemoryCapacity(GetAvailableMem);end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货