Article #15709: SEEK - RANDOM-ACCESS FILES

 Technical Notes Database

TN709D.txt   SEEK - RANDOM-ACCESS FILES
Category   :Pascal
Platform    :All
Product    :Turbo Pascal  3.0+

Description:
Q.  How can I change an item in a random-access file using the
   SEEK procedure?
A.  Here is the example code:
    ..
    SEEK(FileVar, RecordNum);
    READ(FileVar, RecordNum);
    { Code to change the record }
    SEEK(FileVar, RecordNum);
    WRITE(FileVar, RecordNum);
    ..


Reference:


7/16/98 4:35:35 PM
 

Last Modified: 01-SEP-99