Arbeiten mit TList

[thkerkmann]

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]