[lmikle]

Собствено, такой класс пишется за 30 минут. Зачем делать из него компонент я не знаю. Проще создавать его кодом, но можно сделать и компонент. Вопрос тут такой - для каких типов он нужен. К сожалению, в Delphi нет шаблонов. Можно сделать его для вариантов, но это не эффективно.

Вот тебе заголовок такого класса:

Код:

type
  TIntStack = class
  private
     FSize : Integer;
     FStack : TList;
  public
    constructor Create;
    destructor Destroy;

    function Pop : Integer;  // stack-type specified
    procedure Push(AValue : Integer); // stack-type specified
    procedure Clear;

    property Count : Integer read GetCount;
    property Size : Integer read FSize write SetSize;
  end;