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

 AX_RecordEncrypted()
 Determine whether the current record is encrypted
------------------------------------------------------------------------------

 Syntax

     AX_RecordEncrypted() -> logical

 Returns

     Returns a logical .T. if the current record is encrypted. Returns .F.
     if the current record is not encrypted.

 Description

     This function allows you to determine whether the current record is
     encrypted.

 Example

     // Assume TEST.DBF has 10 records in it already

     LOCAL lType, nCount := 0

     USE test VIA "DBFCDXAX"       // Open TEST.DBF
     AX_SetPassword( "HOMER" )     // Select a password value
     AX_DBFEncrypt()               // Encrypt all 10 records in TEST.DBF

     AX_SetPassword( "" )          // Clear the password value
     FOR nCount := 1 To 10         // Now append 10 new records into
        dbAppend()                 //  the table and store some
        test->LAST := "Testing"    //  text into the LAST field
     NEXT

     dbGoTop()                     // Go back to the top of the table
     WHILE !eof()                  //  file and skip through each record
        ? RecNo()
        lType := AX_RecordEncrypted() // Get this record's encryption status
        IF ( lType )
           ?? ": Encrypted"        // Records 1 thru 10 should display this
        ELSE
           ?? ": Not Encrypted"    // Records 11 thru 20 should display this
        ENDIF

        dbSkip()                   // Move to next record
     END