function Length var aL TDList integer var PElem TPElem integer begin P

 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;