Ошибка «Incompatible Type», которой, вроде бы, не должно быть.

[seagull]

Добрый день всем.

Имеется вот такой тестовый код для работы с динамической очередью:

type
  item_ = ^item;
  item = record
    next, prev: item_;
    data: integer;
  end;

  queue = record
    head, tail: ^item;
    qty: integer;
  end;

procedure init(var what: queue);
begin
  with what do begin
    qty := 0;
    head := nil;
    tail := nil;
  end;
end;

procedure push(var where: queue; what: integer);
var
  temp: ^item;
begin
  with where do
    if qty = 0 then begin
      new(head);
      head^.data := what;
      head^.next := nil;
      head^.prev := nil;
      tail := head;
      qty := 1;
    end else begin
      new(tail^.next);
      temp := tail;            {!!!}
      tail := tail^.next;     {!!!}
      tail^.prev := temp;   {!!!}
      tail^.next := nil;
      tail^.data := what;
      inc(qty);
    end;
end;

function pop(var from: queue): integer;
var
  res: integer;
  temp: ^item;
begin
  with from do begin
    res := head^.data;
    temp := head; {!!!}
    head := head^.next; {!!!}
    head^.prev := nil;
    dispose(temp);
    dec(qty);
    pop := res;
  end;
end;

procedure DESTRUCTION(var victim: queue);
var
  cur, tmp: ^item;
begin
  with victim do begin
    cur := head; {!!!}
    while cur <> nil do begin
      tmp := cur^.next; {!!!}
      dispose(cur);
      cur := tmp;
    end;
  end;
end;

procedure dump(what: queue);
var
  cur: ^item;
begin
  with what do begin
    writeln;
    writeln('Queue dump.');
    writeln('Elements quantity: ', qty);
    if qty = 0 then
      exit;
    writeln('Elements (first is popped next):');
    write(head^.data);
    cur := head^.next; {!!!}
    while cur <> nil do begin
      write(' < ', cur^.data);
      cur := cur^.next; {!!!}
    end;
  end;
  writeln;
end;

var
  foo: queue;

begin
  init(foo);
  dump(foo);
  push(foo, 3);
  push(foo, 1);
  push(foo, 4);
  push(foo, 1);
  push(foo, 5);
  dump(foo);
  writeln('Popped: ', pop(foo));
  dump(foo);

  push(foo, 9);
  dump(foo);
  writeln('Popped: ', pop(foo));
  dump(foo);
  readln;
  Destruction(foo);
end.

Дело в том, что во Free Pascal этот код работает безупречно, однако в Delphi выдаётся ошибка компиляции «Incompatible Type» на строках, помеченных комментарием {!!!}.
(причём, ошибка появляется без указания того, что именно не так; скажем, если переменной string попытаться присвоить переменную integer, будет сообщение «Incompatible Type: string and integer»; в данном же случае просто «Incompatible Type» без каких-либо подробностей.

Буду очень благодарен, если кто-то укажет, в чём может быть ошибка и как правильно сделать.

[Пепел Феникса]

type
Pitem=^Titem;
Titem=record
next, prev:PItem;
data: integer;
end;

так было б более по человечески(точнее принято так в Делфи но не суть)

ошибка здесь

  cur: ^item;

и подобных строках.
у вас есть тип указателя(item_), используйте его, Делфи немного строже чем Фри паскаль.

[seagull]

Работает. Огромное спасибо!
Я вчера весь вечер убил, пытаясь понять, что же это всё-таки было.