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

 found()             Return result of last seek operation
------------------------------------------------------------------------------
 Declaration
   database.hdr

 Syntax
   func logical found extern

 Arguments
   None.

 Return
   A logical indicating if the last database search found a matching record.

 Description
   The found() function returns .t. if the most recent search from the
   continue, find, locate or seek commands was successful.

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   proc Test_found
   open sTest index sIdxLN
   seek "Vanderbilt"
   if found()
      ? "Query found at record", istr( recno() )
   endif
   close index
   go top
   // for unindexed databases, use the locate command
   locate all for "y" $ sTest->lastname
   do while found()
      ? recno(), sTest->lastname
      continue
   enddo
   endproc

   proc main
   Test_found()
   endproc