ГоловнаКаталогБлогРейтингЕ-Пошта 
 
 
Зробити домашньою у вибране  

Форуми -> Програмування -> delphi templates - stack
 
redraid 12:05 12.10.2007 Цитувати № 1 [^]
 
{$IFNDEF TYPED_OBJECT_STACK_TEMPLATE}
unit u_stack;

interface

uses
  Sysutils,
  Classes,
  Contnrs;

type
  _TYPED_OBJECT_STACK_ITEM_ = TObject;
{$ENDIF TYPED_OBJECT_STACK_TEMPLATE}

{$IFNDEF TYPED_OBJECT_STACK_TEMPLATE_SECOND_PASS}
type
  _TYPED_OBJECT_STACK_ = class
  protected
    fStack: TObjectStack;
    function GetCount : integer;
  public
    constructor Create;
    destructor Destroy; override;
    function Push(_Item: _TYPED_OBJECT_STACK_ITEM_): _TYPED_OBJECT_STACK_ITEM_;
    function Pop : _TYPED_OBJECT_STACK_ITEM_;
    function Peek : _TYPED_OBJECT_STACK_ITEM_;
    property Count : integer read GetCount;
  end;

{$ENDIF TYPED_OBJECT_STACK_TEMPLATE_SECOND_PASS}

{$IFNDEF TYPED_OBJECT_STACK_TEMPLATE}
implementation
{$DEFINE TYPED_OBJECT_STACK_TEMPLATE_SECOND_PASS}
{$ENDIF TYPED_OBJECT_STACK_TEMPLATE}

{$IFDEF TYPED_OBJECT_STACK_TEMPLATE_SECOND_PASS}

{ _TYPED_OBJECT_STACK_ }

constructor _TYPED_OBJECT_STACK_.Create;
begin
  inherited Create;
  fStack := TObjectStack.Create;
end;

destructor _TYPED_OBJECT_STACK_.Destroy;
begin
  fStack.Free;
  inherited;
end;

function _TYPED_OBJECT_STACK_.Push(
  _Item: _TYPED_OBJECT_STACK_ITEM_): _TYPED_OBJECT_STACK_ITEM_;
begin
  Result := fStack.Push(_Item) as _TYPED_OBJECT_STACK_ITEM_;
end;

function _TYPED_OBJECT_STACK_.Pop : _TYPED_OBJECT_STACK_ITEM_;
begin
     Result := fStack.Pop as _TYPED_OBJECT_STACK_ITEM_;
end;

function _TYPED_OBJECT_STACK_.Peek : _TYPED_OBJECT_STACK_ITEM_;
begin
     Result := fStack.Peek as _TYPED_OBJECT_STACK_ITEM_;
end;

function _TYPED_OBJECT_STACK_.GetCount : integer;
begin
        Result := fStack.Count;
end;

{$WARNINGS off}
{$IFNDEF TYPED_OBJECT_STACK_TEMPLATE}
end.
{$ENDIF TYPED_OBJECT_STACK_TEMPLATE}
{$ENDIF TYPED_OBJECT_STACK_TEMPLATE_SECOND_PASS}
{$DEFINE TYPED_OBJECT_STACK_TEMPLATE_SECOND_PASS}
 
redraid 12:09 12.10.2007 Цитувати № 2 [^]
 
використання аналогічне u_list, тільки треба в дефайни помінять =)) замість _LIST_ _STACK_.
і вуаля =) пуш, поп, пеек, каунт =)) стек однако!


  Ім'я:
  Пароль:
УКРАЇНСЬКІ НАРОДНІ КАЗКИ: Казки Гуцульщини
УКРАЇНСЬКІ НАРОДНІ КАЗКИ: Казки Гуцульщини

APServer | SiMan CMS | Лічильник відвідувань | Тека сайтів | Рейтинг | Форум | Лінійки малюкам | PHP Builder | Download | Шаблони сторінок | Посібник Smarty | Підручник PHP | Статті/Огляди | Розробка сайтів | Банерна мережа