home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 11 / zugriff / seqdat.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1987-10-06  |  2.0 KB  |  52 lines

  1. {---------------------------------------------------------------------------}
  2. { Programm SeqDat: erzeugt ein seq. Datei mit den Zahlen von 1..100,
  3.                    speichert und liest sie wieder.
  4.                    Zum Schreiben und Lesen der Datei werden die Prozeduren
  5.                    Put und Get benutzt!
  6.     Pascal-System: Pascal ST+ / Atari ST                                    }
  7.  
  8. PROGRAM seq_dat;
  9.  
  10. VAR    i: INTEGER;                                         { Laufvariabele  }
  11.        seq_dat: FILE OF INTEGER;                           { Dateivariabele }
  12.  
  13. {---------------------------------------------------------------------------}
  14. {            schreibt die Zahlen 1..100 in die seq. Datei:                  }
  15.  
  16. PROCEDURE schreibe;
  17.  
  18. VAR i: INTEGER;
  19.  
  20. BEGIN
  21.   ReWrite(seq_dat, 'seqdat.seq');             { Datei neu erzeugen          }
  22.   FOR i := 1 TO 100 DO                        { Zahlen erzeugen             }
  23.   BEGIN
  24.     seq_dat^ := i;                            { Datei-Puffer mit Zahl laden }
  25.     Put(seq_dat);                             { und in Datei schreiben      }
  26.   END;
  27. END;
  28.  
  29. {---------------------------------------------------------------------------}
  30. {                   liest die Zahlen und gibt sie aus:                      }
  31.  
  32. PROCEDURE lese;
  33.  
  34. VAR i: INTEGER;
  35.  
  36. BEGIN
  37.   ReSet(seq_dat, 'seqdat.seq');            { Datei zum lesen oeffnen,
  38.                                              erste Zahl ist in Datei-Puffer }
  39.   REPEAT
  40.     i := seq_dat^;         { Inhalt des Datei-Puffers in Variabele kopieren }
  41.     WriteLn(i);
  42.     Get(seq_dat);                                     { naechste Zahl lesen }
  43.   UNTIL Eof(seq_dat);                                 { bis Dateiende       }
  44. END;
  45.  
  46. {-------------------------------- Main -------------------------------------}
  47.  
  48. BEGIN
  49.   schreibe;                                                { erzeuge Datei  }
  50.   lese;                                                    { Datei ausgeben }
  51. END.
  52.