home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / TPBOOK / SEQFILE.PAS < prev    next >
Pascal/Delphi Source File  |  1992-08-07  |  1KB  |  55 lines
  1. { SEQFILE.PAS }
  2. program SeqFiles;
  3. { Demonstrates writing data to a sequential record file
  4.   and reading it back in }
  5.  
  6. const
  7.   MaxRecords = 4;
  8.  
  9. type
  10.   TDataRecord = record
  11.                   Name        : String[20];
  12.                   PhoneNumber : String[14];
  13.                   Age         : Integer;
  14.                 end;
  15.  
  16. const
  17.   DataRecords : Array[0..MaxRecords] of TDataRecord
  18.  
  19.               = ( (Name : 'George'; PhoneNumber : '262-1234'; Age : 10 ),
  20.                   (Name : 'John'  ; PhoneNumber : '262-1235'; Age : 20 ),
  21.                   (Name : 'Lisa'  ; PhoneNumber : '262-1236'; Age : 22 ),
  22.                   (Name : 'Marcia'; PhoneNumber : '262-1237'; Age : 30 ),
  23.                   (Name : 'Gwen'  ; PhoneNumber : '262-1238'; Age : 4 ) );
  24.  
  25.  
  26. var
  27.   I           : Integer;
  28.   SeqFile     : File of TDataRecord;
  29.   SampleRecord: TDataRecord;
  30.  
  31. begin
  32.   Assign( SeqFile, 'SEQFILE.DAT');
  33.   Rewrite( SeqFile );
  34.  
  35.   for I := 0 to MaxRecords  do
  36.     Write( SeqFile, DataRecords[I] );
  37.  
  38.   Close ( SeqFile );
  39.  
  40.   Reset( SeqFile );
  41.   For I := 0 to MaxRecords do
  42.   begin
  43.     Read( SeqFile, SampleRecord );
  44.     with  SampleRecord  do
  45.       Writeln('Name=', Name,', Phone #=', PhoneNumber, ', Age=', Age);
  46.   end;
  47.  
  48.   Close ( SeqFile );
  49.  
  50.   Write('Press Enter when done.');
  51.   Readln;
  52.  
  53.  
  54. end. { program }
  55.