Работа с TObjectStack и TStack

[Vladimir-888]

Прошу помощи. Подскажите пожалуйста, как в Delphi реализовать стек с помощью TObjectStack и TStack. В чём их отличие? Как с ними работать? Если можно с примером, пожалуйста)

[Stilet]

TObjectStack рассчитан на хранение указателей на обьекты, а TStack в принципе хранит указатели на все что угодно.
При этом TObjectStack позволяет (являясь потомком TStack) чистить мусор за собой (например при удалении элемента он его и освобождает) так и прочие удобства для нафигации по стеку обьектов.
Насчет примера не вопрос, но для какой задачи. Задачи бывают разные и примеры под них тоже разными будут

[Vladimir-888]

Сообщение от Stilet

TObjectStack рассчитан на хранение указателей на обьекты, а TStack в принципе хранит указатели на все что угодно.
При этом TObjectStack позволяет (являясь потомком TStack) чистить мусор за собой (например при удалении элемента он его и освобождает) так и прочие удобства для нафигации по стеку обьектов.
Насчет примера не вопрос, но для какой задачи. Задачи бывают разные и примеры под них тоже разными будут

Ну, например, нужно создать стек. На форме размещены: Memo - для вывода результата, Edit - для ввода чисел, и две кнопки, одна для добавления чисел в стек из Edit, другая для удаления.

[Stilet]

Если идетработа с числами то проще TStack.
Если же каждое число ты в обьект обернешь то TObjectStack будет лучше.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,Contnrs;
  var st:TStack;i:integer;
begin
 st:=TStack.Create;
 for i:=0 to 10 do begin st.Push(pointer(i*2));write(i*2:5);end;
 writeln;
  while st.Count>0 do begin write(integer(st.pop):5);end;
 readln;
 st.Free;
  { TODO -oUser -cConsole Main : Insert code here }
end.