home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / einfuehr / fileof.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-07  |  1.4 KB  |  53 lines
  1. PROGRAM FileOfXY;
  2.  
  3. TYPE
  4.      Person = RECORD
  5.           Name, Vorname : STRING;
  6.           ....
  7.      END;
  8.  
  9. CONST
  10.      Karten : INTEGER = 0;         { speichert die Anzahl der Einträge }
  11.  
  12. VAR
  13.      Kartei : ARRAY [1..50] OF Person;           { enthält die Records }
  14.  
  15. ....
  16. ....
  17. ....
  18.  
  19. PROCEDURE Speichern;
  20. VAR
  21.      Dateiname : STRING;
  22.      f         : FILE OF Person;        { Datei mit wahlfreiem Zugriff }
  23.      n         : INTEGER;
  24. BEGIN
  25.      WriteLn('Bitte Dateinamen eingeben: ');
  26.      ReadLn(Dateiname);
  27.      Assign(f, Dateiname);        { Dateivariaben einen Namen zuweisen }
  28.      Rewrite(f);                                  { neue Datei anlegen }
  29.      FOR n := 1 TO Karten DO             { und alle Einträge speichern }
  30.           Write(f, Kartei[n]);
  31. END;
  32.  
  33. ....
  34. ....
  35. ....
  36.  
  37. PROCEDURE Laden;
  38. VAR
  39.      Dateiname : STRING;
  40.      f         : FILE OF Person;
  41. BEGIN
  42.      WriteLn('Bitte Dateinamen eingeben: ');
  43.      ReadLn(Dateiname);
  44.      Assign(f, Dateiname);       { Dateivariablen einen Namen zuweisen }
  45.      Reset(f);                                    { neue Datei anlegen }
  46.      Karten := 0;         { bislang kein Record gelesen bzw. vorhanden }
  47.      WHILE NOT EoF(f) DO        { solange Dateiende nicht erreicht ist }
  48.      BEGIN
  49.        Inc(Karten);                            { Zähler incrementieren }
  50.        Read(f, Kartei[Karten]);           { und Record aus Datei lesen }
  51.      END;
  52. END;
  53.