home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST224.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  525 b   |  24 lines
  1. *******************
  2.  
  3. FUNCTION Arraytomem
  4.  
  5.    PARAMETERS _thearray
  6.  
  7.    IF TYPE("_thearray") != "C" .AND. TYPE(_thearray) != "A"
  8.       RETURN(.F.)
  9.    ENDIF
  10.  
  11.    PRIVATE _qaz, _ext
  12.  
  13.    DECLARE _temp[LEN(&_thearray.)]    && This makes sure that no over-ridding
  14.                                     && of the array takes place!
  15.    FOR _qaz = 1 TO LEN(&_thearray.)
  16.       _ext = LTRIM(STR(_qaz))
  17.       PUBLIC &_thearray.&_ext.
  18.       &_thearray.&_ext. = &_thearray.[_qaz]
  19.    NEXT
  20.    RETURN(.T.)
  21.  
  22. * End of File
  23.  
  24.