Subj : Re: Reading dat files
To   : Andy Gorman
From : g00r00
Date : Fri May 07 2021 05:59 pm

 AG> Second, when I loop through the file using the structure g00r00 has
 AG> provided (th ank you! :) ), it seems that the byte count gets thrown off
 AG> by one right after t he Birthday field.  Which she is 

I don't know how to help you here without seeing code.  But here is a very simple loop through the users using the barebones file I/O with no buffering or streaming, etc.  If this doesnt work for you let me know it could be possible that the latest records aren't the ones that are included.

Program ReadUsers;

{$DEFINE WINDOWS}
{$DEFINE 32BIT}

{$I RECORDS.112}

{$I-}

Var
  F : File of RecUser;
  U : RecUser;
Begin
  Assign (F, 'users.dat');
  Reset  (F);

  If IoResult <> 0 Then
    Halt(1);

  While Not Eof(F) Do Begin
    Read (F, U);

    WriteLn ('Name: ' + U.Handle);
  End;

  Close (F);
End.
--- Mystic BBS v1.12 A47 2021/05/02 (Windows/64)
 * Origin: Sector 7 | Mystic WHQ (1:129/215)

.