1 2 3 4 5 6 7 8 9 10 11 12 13 14
function Length(var aL : TDList):integer; var PElem: TPElem; L:integer; begin L:=0; PElem:=aL.PFirst; while PElem<>nil do begin L:=L+1; PElem:=Pelem^.PNext; end; Length:=L; end;