Forums before death by AOL, social media and spammers... "We can't have nice things"
|    alt.bbs.mystic    |    Mystic Sysops are mystical nerds...    |    11,847 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 9,950 of 11,847    |
|    g00r00 to All    |
|    Re: Reading dat files    |
|    07 May 21 17:59:53    |
   
   From: nospam.g00r00@f215.n129.z1.fidonet.org   
      
    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.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   
|
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca