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:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:

  Pointertyp = ^Schuelertyp;
  Schuelertyp = record
                  Nachname, Vorname, Name : string;
                  Nach    : Pointertyp;
                end;
                
var
  Form1 :             TForm1;
  Kopf, Vor, Zeiger : Pointertyp;
  Pos :               Integer;
implementation

{$R *.DFM}

procedure Eingabe(var Neu : Pointertyp);
begin
  new(Neu);
  Neu^.Nachname := InputBox('Nachname:', 'Eingabe:', ''); 
  Neu^.Vorname := InputBox('Vorname:', 'Eingabe:', '');
end;

procedure TForm1.btnNeuClick(Sender: TObject);
var Leer : String; I : Integer;
begin
  lbAusgabe.Items.Clear;
  Eingabe(Kopf);
  Kopf^.Nach := nil;
  Leer := ',';
  for I := 1 to (13 - Length(Kopf^.Nachname)) do Leer := Leer + ' ';
  lbAusgabe.Items.Add(Kopf^.Nachname + Leer + Kopf^.Vorname);
end;

procedure TForm1.btnAufbauenClick(Sender: TObject);
var Neu : Pointertyp;
  procedure Suchen(Zeiger : Pointertyp; var Vor : Pointertyp);
  begin
    while (Zeiger <> nil) and (Zeiger^.Nachname < Neu^.Nachname) do
    begin
      Vor := Zeiger;
      Zeiger := Vor^.Nach;
    end;
  end;
  procedure Einfuegen(Vor : Pointertyp);
  var Leer : String; I : Integer;
  begin
    if Kopf^.Nachname > Neu^.Nachname
      then begin
             Neu^.Nach := Kopf;
             Kopf := Neu;
           end
      else begin
             Neu^.Nach := Vor^.Nach;
             Vor^.Nach := Neu;
           end;
    Leer := ',';
    for I := 1 to (13 - Length(Neu^.Nachname)) do Leer := Leer + ' ';       
    lbAusgabe.Items.Add(Neu^.Nachname + Leer + Neu^.Vorname);         
  end;

begin
  Eingabe(Neu);
  Suchen(Kopf,Vor);
  Einfuegen(Vor);
end;

procedure TForm1.btnSpeichernClick(Sender: TObject);
var Pfad : String;
begin
  Pfad := 'B:\Delphi3\Stufe12\Pointer004\Schueler.TXT';
  lbAusgabe.Items.SaveToFile(Pfad);
end;

procedure TForm1.btnLadenClick(Sender: TObject);
var Pfad : String; I: Integer; Neu : Pointertyp;
  procedure Erzeugen(var zeiger:Pointertyp; I : Integer);
  begin
    new(zeiger);
    Zeiger^.Name := lbAusgabe.Items[lbAusgabe.Items.Count-1-I];
    Zeiger^.Nach := Nil;
    if I <> 0 then Erzeugen(Zeiger^.Nach,I-1);
  end;
begin
  Pfad := 'B:\Delphi3\Stufe12\Pointer004\Schueler.TXT';
  lbAusgabe.Items.LoadFromFile(Pfad);
  new(Kopf);
  Kopf^.Name := lbAusgabe.Items[0];
  Kopf^.Nach := Nil;
  Erzeugen(Kopf^.Nach,lbAusgabe.Items.Count-2);
end;

{Fehler in der prozedur}
procedure TForm1.btnEntfernenClick(Sender: TObject);
var Neu,Zeiger: Pointertyp;
begin
  New(neu);
  Neu^.Nachname := InputBox('Nachname:', 'Eingabe:', ''); 
  Zeiger := Kopf;
  Pos := 0;
  while (Zeiger <> nil) and (Zeiger^.Nachname <> Neu^.Nachname) do
  begin
    Vor := Zeiger;
    Zeiger:= Zeiger^.Nach;
    Pos := Pos + 1;
  end;
  if Zeiger<>Nil then
  if Zeiger^.Nachname = Neu^.Nachname
    then begin
           if Zeiger = Kopf
             then Kopf := Kopf^.Nach
             else Vor^.Nach := Zeiger^.Nach;
           lbAusgabe.Items.Delete(Pos); 
         end;            
end;