Diesen Programmtext haben wir mal im Unterricht geschrieben und nu hab ich Morgen meine mündl. Abi Prüfung machen und kann leider nichtmehr viel hiermit anfangen, könnte mir jemand von euch erklären was diese bzw wie diese Procedure etwas macht?
Insbesonders mit den Zeigern und den vielen "gleichen" variablen komm ich nicht klar.
Danke schonmal
Delphi-Quelltext
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:
| String20 = string[20];
tperson = ^personentyp;
personentyp = record
name: string20;
next : tperson;
End;
var
Form1: TForm1;
kopf : tperson;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var lauf, person :tperson;
begin
new(person);
person^.name := edit1.text;
person^.next := NIL;
if (kopf = NIL) then kopf := person
Else begin
Lauf := kopf;
While Not (lauf^.next = nil)
do lauf := lauf^.next;
lauf^.next:= person;
end;
end; |
