[Valdemar2010]

Помогите создать модуль Delphi стек, внедрить модуль в обычный делфи.
И там же реализовать все параметры стека, ну там максимальное, размерность и т.д.
Может кто встречал такую работу а?
Помогите, позарез нужна!

[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;

[Valdemar2010]

в общем я сформулировал наверно не так, задача изначально есть, что - это курсовик по информатике тема которого звучит так "Разработка компонента Delphi - стек". Ну препод на консультации и говорит, что мол нужно создать модуль, который внеряется в делфи, какой нибудь кнопкой с изменяемыми данными. И его можно переносить на форму, ну допустим кнопкой. А в свойствах задавать, начальные значение, функцию выполния и т.д.

[lmikle]

да не проблемма.
Компонент отличается от класса только тем, что имеет секцию published и процедуру регистрации. Т.е. показанный код должен быть модифицирован минимально. Тут только вопрос в том, какие у стека боработчики событий быть должны... хотя можно придумать

[Страдалецъ]

Изобретение велосипеда конечно дело хороше, но лучше сделайте компонентную обертку к уже готовому классу TStack

[lmikle]

Дык человеку диплом нужен. И особую умность тоже показывать нельзя, а то не поверят, что сам сделал.

[Valdemar2010]

рябята так поиоч сможете?
дай модуль и код, по зарез нужно...

[Страдалецъ]

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

рябята так поиоч сможете?
дай модуль и код, по зарез нужно...

Вы путаете помощь и халяву. Халява в разделе работа, а тут помощь по вашему проблемному коду которого я еще даже и не видел. Идей для начала вам накидали - творите.

[Valdemar2010]

рябята так помоч сможете?
дай модуль и код, по зарез нужно...

[NumLock]

ComponentStack.pas :

PHP код:

unit ComponentStack;

interface

uses
  Contnrs,
  Classes;

type
  TComponentStack = class(TComponent)
  private
    FStack: TStack;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    function Count: Integer;
    function Push(AItem: Pointer): Pointer;
    function Pop: Pointer;
  end;

procedure Register;
  
implementation

procedure Register;
begin
  RegisterComponents('Internet', [TComponentStack]);
end;

{ TComponentStack }

constructor TComponentStack.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FStack:=TStack.Create;
end;

destructor TComponentStack.Destroy;
begin
  FStack.Free;
  inherited Destroy;
end;

function TComponentStack.Count: Integer;
begin
  Result:=FStack.Count;
end;

function TComponentStack.Push(AItem: Pointer): Pointer;
begin
  Result:=FStack.Push(AItem);
end;

function TComponentStack.Pop: Pointer;
begin
  Result:=FStack.Pop;
end;

end. 


Unit1.pas :

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, ComponentStack;

type
  TForm1 = class(TForm)
    ComponentStack1: TComponentStack;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComponentStack1.Push(Button1);
  ComponentStack1.Push(Edit1);
  ComponentStack1.Push(Label1);
  Caption:=IntToStr(ComponentStack1.Count);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if ComponentStack1.Count>0 then
    TObject(ComponentStack1.Pop).Free;
  Caption:=IntToStr(ComponentStack1.Count);
end;

end. 


TComponentStack60.dpk :

PHP код:

package TComponentStack60;

{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'TComponentStack'}
{$IMPLICITBUILD OFF}

requires
  rtl;

contains
  ComponentStack in 'ComponentStack.pas';

end. 


[Valdemar2010]

Спасибо NumLock сейчас буду пробовать

[Valdemar2010]

NumLock не могу разобраться с твоим кодом, можешь скинуть исходники? вот мое мыло - Russie-2006@yandex.ru

и еще вот мне надо на курсовик 15 страниц текста и 10 страниц скринов этого блин "стека" какие скрины то можно сделать?