Thema: Delphi Arbeiten mit TList

Einzelnen Beitrag anzeigen

Benutzerbild von thkerkmann
thkerkmann

Registriert seit: 7. Jan 2006
Ort: Pulheim Brauweiler
464 Beiträge
 
Delphi 2010 Professional
 
#5

Re: Arbeiten mit TList

  Alt 24. Sep 2008, 09:17
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]
Thomas Kerkmann
Ich hab noch einen Koffer in Borland.
http://thomaskerkmann.wordpress.com/
  Mit Zitat antworten Zitat