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

 recsize()           Return the size of a record in the current alias
------------------------------------------------------------------------------
 Declaration
   database.hdr

 Syntax
   func uint recsize extern

 Arguments
   None.

 Return
   Record size.

 Description
   The recsize() function returns the size of a record in the current alias.

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   dbfdef sTmp                  // no fields are required
   enddef
   
   proc Test_recsize
   // Calculate number of records that can be added to
   // the database before the disk is full.
   if exist( argv( 1 ) )
      open argv( 1 ) alias sTmp
      ? "Database", argv( 1 ), "contains", istr( reccount() ), "records"
      ? "Record size is", istr( recsize() )
      ? istr( diskspace( curdrive() ) / recsize() ), ;
         "more records will fit to disk",
   else
      ? "Program prints record size of any database"
      ? "Usage: recsize <filename>"
   endif
   endproc

   proc main
   Test_recsize()
   endproc