Nö, soweit geht das schon, aber
Delphi-Quellcode:
Function TPunktTypeList.Add(inPkt : Punkttype) : Integer;
Var
p : pPunkttype;
Begin
New(p);
Result:=Inherited Add(p);
End;
ist nicht so gut, da dein inPkt gar nicht in die Liste aufgenommen wird, sonder ein leerer Punkt.
Delphi-Quellcode:
Function TPunktTypeList.Add(inPkt : Punkttype) : Integer;
Var
p : pPunkttype;
Begin
New(p);
p^ := inPkt; // <=== fehlt hier
Result:=Inherited Add(p);
End;
Gruss
[Edit:thkerkmann]Korrektur Zugweisung [/Edit]