TList, FP Опции

[compiler]

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

[volvo]

Так, например:

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);
begin
  with PT(p)^ do begin
    writeLn('X = ', X:2, ' Y = ', Y:2);
  end;
end;
procedure incr(p: 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]

volvo, а в каком режиме ты компилировал?
мой лог

Код

ex.pas(47,28) Error: Incompatible type for arg no. 1: Got "<address of procedure(Pointer);Register>", expected "<procedure variable type of procedure(Pointer, Pointer);Register>"
ex.pas(48,29) Error: Incompatible type for arg no. 1: Got "<address of procedure(Pointer);Register>", expected "<procedure variable type of procedure(Pointer, Pointer);Register>"
ex.pas(51,29) Error: Incompatible type for arg no. 1: Got "<address of procedure(Pointer);Register>", expected "<procedure variable type of procedure(Pointer, Pointer);Register>"
ex.pas(55,4) Fatal: There were 3 errors compiling module, stopping
ex.pas(55,4) Fatal: Compilation aborted

если использовать {$mode objfpc}, то на одну ошибку меньше

Сообщение отредактировано: compiler - 17.07.2007 14:26