home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / HUGEGR.ZIP / HUGEGRID.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-07-31  |  1.3 KB  |  30 lines
  1. DefInt A-Z
  2.  
  3. Global hArray As Integer
  4.  
  5. Declare Function HugeDim Lib "hugearr.dll" (ByVal recsize%, ByVal limit&) As Integer
  6. Declare Function HugeRedim Lib "hugearr.dll" (ByVal hArray%, ByVal limit&) As Integer
  7. Declare Function HugeErase Lib "hugearr.dll" (ByVal hArray%) As Integer
  8. Declare Function SetHugeEl Lib "hugearr.dll" (ByVal Index%, ByVal el&, buffer As Any) As Integer
  9. Declare Function GetHugeEl Lib "hugearr.dll" (ByVal Index%, ByVal el&, buffer As Any) As Integer
  10. Declare Function NumHugeArrays Lib "hugearr.dll" () As Integer
  11. Declare Function HugeInt Lib "hugearr.dll" (ByVal hArray%, ByVal el&) As Integer
  12. Declare Function HugeLong Lib "hugearr.dll" (ByVal hArray%, ByVal el&) As Long
  13. Declare Function HugeSingle Lib "hugearr.dll" (ByVal hArray%, ByVal el&) As Single
  14. Declare Function HugeDouble Lib "hugearr.dll" (ByVal hArray%, ByVal el&) As Double
  15. Declare Function HugeCurrency Lib "hugearr.dll" (ByVal hArray%, ByVal el&) As Currency
  16. Declare Function HugeUbound Lib "hugearr.dll" (ByVal hArray%) As Long
  17.  
  18. Type Element
  19.   a1 As String * 7
  20.   a2 As String * 8
  21.   a3 As String * 9
  22.   dummy As String * 8
  23. End Type
  24.  
  25. 'Note that the dummy string is required because a Huge Array
  26. 'must be set to a record length of some power of 2.
  27. 'The next highest power of 2 in this case is 2^5 = 32
  28. 'and 32 - (7+8+9) = 8
  29.  
  30.