1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

implementation
  var x: Integer;

  type TPerson = record
    Name: String[20];
    Vorname: String[20];
    Strasse: String[30];
    PLZ: String[10];
    Ort: String[30];
  end;

  var f: File of TPerson;
  var verz: String;
  var Buch: array[1..10] of TPerson;
{$R *.dfm}

procedure datei_neu;
  begin
    {$I-} Rewrite(f); {$I+}
    if IOResult <> 0 then
    Showmessage('Fehler beim Erzeugen einer neuen Datei');
  end;

procedure datei_schreiben;
  var i: Integer;
    begin
      {$I-} Reset(f) {I+};
      if IOResult <>0 then
        Showmessage('Fehler beim Lesen');
      for i:= 1 to 10 do
        read(f, Buch[i]);
    end;

procedure datei_lesen;
  var i: Integer;
    begin
      {$I-} Reset(f) {$I+};  {wenn man an dieser Stelle das {$I+} in ein {I+} umändert, wird der fehler nicht mehr angezeigt. Allerdings erscheint nun das Fenster "Fehler beim Lesen" }
      if IOResult <> 0 then
        Showmessage('Fehler beim Lesen');
      for i:= 1 to 10 do
        read(f,Buch[i]);
    end;


procedure TForm1.DAT_LOAD(Sender: TObject);
  var i: integer;
    begin
      verz:= ExtractFilePath(ParamStr(0)) + 'personen.dat';
      AssignFile(f, verz);
      {$I-} Reset(f) {$I+};
      if IOResult <> 0 then
        begin
          i:= Application.MessageBox('Datei neu anlegen?' , ' ', 52);
          if i= 6 then
            datei_neu
          else
            halt;
        end
          else
            datei_lesen;
          end;					

1:

var f: File of TPerson;					

1:
2:

for i:= 1 to 10 do
  write(f, Buch[i]);					

1:
2:

for i:= 1 to 10 do
  read(f, Buch[i]);