home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 August / CICA.cdr / unzipped / programr / vbasic / hugary / hugearr.vbi < prev   
Encoding:
Text File  |  1992-03-11  |  2.1 KB  |  28 lines
  1. ' An alternate set of definitions with more consistent names that you may want
  2. ' to consider using instead of those in HUGEARR.BAS.
  3.  Global Const HA_OK              = 0
  4.  Global Const HA_OUTOFMEMORY    = -1
  5.  Global Const HA_TOMANYARRAYS   = -2
  6.  Global Const HA_BADELEMENTSIZE = -3  ' no longer possible; left for backward compatibility.
  7.  Global Const HA_SUBSCRIPT      = -4
  8.  Global Const HA_BADARRAY       = -5
  9.  Global Const HA_FILEOPENERROR  = -7
  10.  Global Const HA_FILEWRITEERROR = -8
  11.  Global Const HA_FILEREADERROR  = -9
  12.  Declare Function MSHugeDim% Lib "hugearr.dll" Alias "HugeDim" (ByVal recsize%, ByVal limit&)
  13.  Declare Function MSHugeRedim% Lib "hugearr.dll" Alias "HugeRedim" (ByVal hArray%, ByVal limit&)
  14.  Declare Function MSHugeGet% Lib "hugearr.dll" Alias "GetHugeEl" (ByVal Index%, ByVal el&, buffer As Any)
  15.  Declare Function MSHugeGetNum% Lib "hugearr.dll" Alias "GetHugeNEl" (ByVal Index%, ByVal el&, ByVal nelem%, buffer As Any)
  16.  Declare Function MSHugeSet% Lib "hugearr.dll" Alias "SetHugeEl" (ByVal Index%, ByVal el&, buffer As Any)
  17.  Declare Function MSHugeSetNum% Lib "hugearr.dll" Alias "SetHugeNEl" (ByVal Index%, ByVal el&, ByVal nelem%, buffer As Any)
  18.  Declare Function MSHugeErase% Lib "hugearr.dll" Alias "HugeErase" (ByVal hArray%)
  19.  Declare Function MSHugeNumArrays% Lib "hugearr.dll" Alias "NumHugeArrays" ()
  20.  Declare Function MSHugeUbound& Lib "hugearr.dll" Alias "HugeUBound" (ByVal hArray%)
  21.  Declare Function MSHugeGetInt% Lib "hugearr.dll" Alias "HugeInt" (ByVal hArray%, ByVal el&)
  22.  Declare Function MSHugeGetLong& Lib "hugearr.dll" Alias "HugeLong" (ByVal hArray%, ByVal el&)
  23.  Declare Function MSHugeGetSingle! Lib "hugearr.dll" Alias "HugeSingle" (ByVal hArray%, ByVal el&)
  24.  Declare Function MSHugeGetDouble# Lib "hugearr.dll" Alias "HugeDouble" (ByVal hArray%, ByVal el&)
  25.  Declare Function MSHugeGetCurrency@ Lib "hugearr.dll" Alias "HugeCurrency" (ByVal hArray%, ByVal el&)
  26.  Declare Function MSHugeSave& Lib "hugearr.dll" Alias "HugeSave" (ByVal hArray%, ByVal NEl&, ByVal RecLen%, ByVal Fn$)
  27.  Declare Function MSHugeLoad& Lib "hugearr.dll" Alias "HugeLoad" (ByVal hArray%, ByVal RecLen%, ByVal Fn$)
  28.