очередь

[odi_noki]

Нужно создать простенькую очередь для хранения целых чисел. Помнится, в паскале очередь обычно создавалась через указатели, в делфи я б ее сделала через динамический массив. Подскажите, может какие-то еще средства есть в делфе?

[BOBAH13]

Проблема создать (наверное самую быструю) систему узлов чтоли ? например

type 
  PLink = ^TLink;
  TLink = packed record
    Value: Integer;
    Next: PLink;
  end;

function Add(var FirstLink: PLink; Value: Integer): PLink;
var
  p: PLink;
begin
  if (FirstLink = NIL) then
  begin
    new(p);
    FirstLink := p;
  end else
  begin
    p := FirstLink;
    while (p^.Next <> NIL) do
      p := p^.Next;
    new(p^.Next);
    p := p^.Next;
  end;
  p^.Next := NIL;
  p^.Value := Value;
  Result := p;
end;

procedure Remove(var FirstLink: PLink);
var
  p: PLink;
begin
  if (FirstLink <> NIL) then
  begin
    p := FirstLink;
    FirstLink := FirstLink^.Next;
    dispose(p);
  end;
end;

Вроде все верно, писал сдесь так что...

[odi_noki]

очередь как в магазине за хлебом - первый поток (продавец) считывает инфу от первого в очереди, после чего первый уходит, второй поток (покупатель) добавляет себя в конец очереди. То есть нужны 2 процедуры - добавить в очередь и удалить первый элемент.
BOBAH13,
Если не сложно пропишите эти процедуры на описанных типах данных - указатели поддаются мне с трудом.

[odi_noki]

Все ясно, огромное спасибо