1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure speichern(VAR Kl:TKlasse;VAR zaehler:integer);
var filename,ds :string;
    f           :textfile;
    i           :integer;
begin
  form1.SaveDialog1.Execute;
  filename:=form1.SaveDialog1.FileName;
  assignfile(f,filename);
  rewrite(f);
  for i:=1 to zaehler do
  begin
    ds:=Kl[i].Person.Name+';'+Kl[i].Person.Vorname+';'+Kl[i].Adresse.Strasse+';'
        +Kl[i].Adresse.PLZ+';'+Kl[i].Adresse.Ort+';'+Kl[i].Adresse.Telefon;
    writeln(f,ds);
  end;
  closefile(f)
END;					

1:
2:
3:
4:
5:
6:
7:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EInOutError aufgetreten. Meldung: 'E/A-Fehler 32'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK   Hilfe   
---------------------------					

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:

procedure oeffnen(VAR Kl:TKlasse;VAR zaehler:integer);
var filename,ds,ds1 :string;
    f               :textfile;
    x               :integer;
begin
form1.opendialog1.Execute;
filename:=form1.opendialog1.FileName;
assignfile(f,filename);
reset(f);
zaehler:=0;
while not eof(f) do            //prüft, ob das ende des Strings erreicht  ist//
begin
  zaehler:=zaehler+1;
  Readln(f,ds);

  Kl[zaehler].Person.Name:='';
  x:=Pos(';',ds);              //Pos sucht im String ds den Teilstring ';'
                               //-> wenn der String gefunden wurde gibt Pos
                               //den Integer-Index des ersten Zeichens aus

  ds1:=Copy(ds,1,x-1);         //Copy weist ds1 den Teilstring vom ersten (1)
                               //bis zum x-1 (vor ';') Element aus dem String ds
                               //zu
  Kl[zaehler].Person.Name:=ds1;
  ds:=Copy(ds,x+1,length(ds)); // ds erhält den den reststring ab x+1(nach';')

  Kl[zaehler].Person.Vorname:='';
  x:=Pos(';',ds);
  ds1:=Copy(ds,1,x-1);
  Kl[zaehler].Person.Vorname:=ds1;
  ds:=Copy(ds,x+1,length(ds));

  Kl[zaehler].Adresse.Strasse:='';
  x:=Pos(';',ds);
  ds1:=Copy(ds,1,x-1);
  Kl[zaehler].Adresse.Strasse:=ds1;
  ds:=Copy(ds,x+1,length(ds));

  Kl[zaehler].Adresse.PLZ:='';
  x:=Pos(';',ds);
  ds1:=Copy(ds,1,x-1);
  Kl[zaehler].Adresse.PLZ:=ds1;
  ds:=Copy(ds,x+1,length(ds));

  Kl[zaehler].Adresse.Ort:='';
  x:=Pos(';',ds);
  ds1:=Copy(ds,1,x-1);
  Kl[zaehler].Adresse.Ort:=ds1;
  ds:=Copy(ds,x+1,length(ds));

  Kl[zaehler].Adresse.Telefon:='';
  ds1:=Copy(ds,1,length(ds));
  Kl[zaehler].Adresse.Telefon:=ds1;
  end;
END;