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

 adeleted()          Return deleted status for current record
------------------------------------------------------------------------------
 Declaration
   database.hdr

 Syntax
   func logical adeleted extern
   param alias sDatabase

 Arguments
   sDatabase is the alias to retrieve information about.

 Return
   A logical indicating if the current record is deleted.

 Description
   The adeleted() function returns the value of the deleted flag for the
   record currently pointed to in the specified alias sDatabase. If the record
   has been marked for deletion, adeleted() returns .t..

   The adeleted() function performs identically to the deleted() function.
   adeleted() differs syntactically in that it accepts an alias as a
   parameter

   Use adeleted() when your application has more than one database open at
   one time. The adeleted() function eliminates the need to manage the current
   workarea.

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   proc Test_adeleted
   vardef
      uint i
   enddef
   open "stest.dbf" alias sTest
   !sTest goto 2
   !sTest delete
   !sTest go top
   for i := 1 to 3
      ? "Rec. #", arecno( sTest ):1, ;
         iifc( adeleted( sTest ), "deleted", "" )
      ! sTest skip
   next
   endproc

   proc main
   Test_adeleted()
   endproc