Click above to get retro games delivered to your door ever month!

 FT_RESTARR()
 Restore a Clipper array from a disc file
------------------------------------------------------------------------------

 Syntax

      FT_RESTARR( <cFileName>, <nErrorCode> ) -> aArray

 Arguments

     <cFileName> is a DOS file name.

     <nErrorCode> will return any DOS file error.

     All arguments are required.

 Returns

     Return an array variable.

 Description

     FT_RESTARR() restores an array which was saved to
     a disc file using FT_SAVEARR().

     [10/1/92 Librarian note:

     This function does not appear to work with multi-dimensional
     arrays.  If you'd care to modify it to support this feature,
     please do and send it to Glenn Scott 71620,1521.]

 Examples

    aArray := { {'Invoice 1',CTOD('04/15/91'),1234.32,.T.},;
                {'Invoice 2',DATE(),234.98,.F.},;
                {'Invoice 3',DATE() + 1,0,.T.}  }
    nErrorCode := 0
    FT_SAVEARR(aArray,'INVOICE.DAT',@nErrorCode)
    IF nErrorCode = 0
      aSave := FT_RESTARR('INVOICE.DAT',@nErrorCode)
      IF nErrorCode # 0
         ? 'Error restoring array'
      ENDIF
    ELSE
      ? 'Error writing array'
    ENDIF


 Source: SAVEARR.PRG

 Author: David Barrett