TList, FP Опции

[compiler]

Добрый день
Существует ли список в FP, как встроенный тип?
говорят что да но найти о нем в руководстве не могу ни слова

[volvo]

Для диалекта - надо добавить кое-что в заголовки процедур:

{$mode objfpc}
uses classes;

type
  PT = ^T;
  T = record
    X, Y: integer;
  end;

function compare(a, b: pointer): integer;
begin
  if PT(a)^.X > PT(b)^.X then compare := 1
  else
    if PT(a)^.X < PT(b)^.X then compare := -1
    else compare := PT(a)^.Y - PT(b)^.Y;
end;
procedure print(p: pointer; arg: pointer); // Еще один параметр
begin
  with PT(p)^ do begin
    writeLn('X = ', X:2, ' Y = ', Y:2);
  end;
end;
procedure incr(p: pointer; arg: pointer); // И здесь тоже ...
begin
  with PT(p)^ do begin
    inc(X); inc(Y);
  end;
end;

var
  p: PT;
  my_list: TFPList;
  i: integer;

begin
  my_list := TFPList.Create();
  for i := 1 to 10 do begin
    new(p);
    with(p^) do begin
      X := random(15); y := random(15);
      writeLn('X = ', X:2, ' Y = ', Y:2);
    end;
    my_list.add(p);
  end;

  writeln('for each');
  my_list.foreachcall(@incr, nil);
  my_list.foreachcall(@print, nil);
  writeln('sorting');
  my_list.sort(@compare);
  my_list.foreachcall(@print, nil);

end.

[compiler]

Для диалекта - надо добавить кое-что в заголовки процедур

я все равно не могу понять способ вызова процедур...
на примере incr

my_list.foreachcall(@incr, nil);//для каждого элемента my_list вызываем эту процедуру

зачем передавать nil?

procedure incr(p: pointer; arg: pointer); 
//получаем 2 аргумента первый указатель на процедуру,
// второй -- не ясно что...
begin
	with PT(p)^ do begin  // PT(p)^ ? р-- это ж ведь указатель на процедуру, а не на ячейку или список...
		inc(X); inc(Y);
	end;
end;