Стек на основе обобщений (generics)
Итак, начнем создавать стек, основанный на обобщении (generics).
В название класса, добавим параметр типа, заключив его в “<”,”>”
type
TGenericStack<T> = class
зарезервированный тип T может быть помещен в те-же самые места, как и любой стандартный тип Delphi: в конструктор, в методы класса, или в параметры функций.
type
TGenericStack<T> = class
genArray: Array of T;
TopOfStack : Integer;
constructor Create(length: Integer);
procedure push(Value: T);
function pop: T;
end;
