Помогите пожалуйста доработать программу

← →
Nostalgia © (2010-03-03 22:25) [0]

Помогите пожалуйста доработать программу. Как сделать чтобы в Мемо выводился стэк из 5 строк и длиной 10 символов ?
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Unit2; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; S:TStack; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin S:=TStack.Create; end; procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.Add(pansichar(S)); end; end. unit Unit2; interface uses SysUtils, Dialogs; const StackEmpty=nil; type T=integer; TStackEl=^StackEl; StackEl=record el:T; prev:TStackEl; end; TStack=class private StackTop:TStackEl; public Constructor Create; Function EmptyStack:boolean; procedure AddToStack(elem:T); procedure DelFromStack; function LastOfStack:T; end; implementation Constructor TStack.Create; begin Inherited Create; end; Function TStack.EmptyStack; begin EmptyStack:=StackTop=StackEmpty; end; procedure TStack.AddToStack; var tmp:TStackEl; begin new(tmp); tmp^.el:=elem; tmp^.prev:=StackTop; StackTop:=tmp; end; procedure TStack.DelFromStack; var help:TStackEl; begin if StackTop<>StackEmpty then begin help:=StackTop; StackTop:=StackTop^.prev; dispose(help); end else showmessage ("error stack pust"); end; function TStack.LastOfStack; begin if StackTop<>StackEmpty then result:=StackTop^.el else showmessage("error1 stack pust"); end; end.

← →
Игорь Шевченко © (2010-03-03 23:29) [1]

> procedure TForm1.Button1Click(Sender: TObject);
> begin
>
> memo1.Lines.Add(pansichar(S));
> end;

Это что за ужас на крыльях ночи ?

← →
Плохиш © (2010-03-04 09:58) [2]

> Это что за ужас на крыльях ночи ?

Это такой одесский прикол.

← →
Nostalgia © (2010-03-04 12:56) [3]

не знаю!!! помогите !!!

← →
Плохиш © (2010-03-04 16:42) [4]

Ну, фотографию гони.

← →
Игорь Шевченко © (2010-03-04 16:58) [5]

Плохиш © (04.03.10 16:42) [4]

А что, у вас еще туркам въезд не закрыли ? ;)

← →
Плохиш © (2010-03-04 17:09) [6]

> Игорь Шевченко © (04.03.10 16:58) [5]
>
> Плохиш © (04.03.10 16:42) [4]
>
> А что, у вас еще туркам въезд не закрыли ? ;)

Кто ж закроет, они в правительстве 8-O

А ты что её фотографию уже видел?

← →
Игорь Шевченко © (2010-03-04 17:19) [7]

Плохиш © (04.03.10 17:09) [6]

Их тут много было, одесситов со стеками. На групповую фотографию хватит.

Причем, код юнита со стеком у них, похоже единственный.
Сакральный.

> А ты что её фотографию уже видел?

Я и не просил :P

← →
KilkennyCat © (2010-03-04 19:31) [8]

я просил. не прислала.

← →
Nostalgia © (2010-03-05 18:43) [9]

> KilkennyCat © (04.03.10 19:31) [8]
> я просил. не прислала

ничего ты не просил, не ври..

← →
KilkennyCat © (2010-03-05 23:30) [10]

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

← →
Плохиш © (2010-03-06 00:25) [11]

> Nostalgia © (05.03.10 18:43) [9]

Так фотография будет или программу дорабатывать уже не надо?

← →
Германн © (2010-03-06 01:16) [12]

> KilkennyCat © (05.03.10 23:30) [10]

> Плохиш © (06.03.10 00:25) [11]

См. Игорь Шевченко © (04.03.10 17:19) [7]
Может не хватить дискового пространства для сей фотогалереи.

← →
Nostalgia © (2010-03-06 11:54) [13]

> Плохиш © (06.03.10 00:25) [11]
> > Nostalgia © (05.03.10 18:43) [9]Так фотография будет
> или программу дорабатывать уже не надо?

фотография будет !!! программу дорабатывать надо !!!

← →
Nostalgia © (2010-03-06 11:54) [14]

← →
KilkennyCat © (2010-03-06 15:16) [15]

ждем-с.

← →
Nostalgia © (2010-03-06 20:55) [16]

куда отправлять то ?

← →
Nostalgia © (2010-03-06 21:29) [17]

> KilkennyCat © (06.03.10 15:16) [15]
> ждем-с.

отправила, теперь доделывай программу ))

← →
sniknik © (2010-03-06 22:40) [18]

> отправила, теперь доделывай программу ))
свою? надеюсь побрился?

> sniknik © (06.03.10 22:40) [18]
> > отправила, теперь доделывай программу ))свою? надеюсь
> побрился?

твой сарказм здесь не уместен

Ну, придется держать слово... ща, я часик покурю, отойду от алкоголя, доделаю. Вышлю на почту.

← →
0x00FF00 (2010-03-07 13:37) [23]

Блин, вот за что люблю Делфимастер — так это за подобные темы =)

> KilkennyCat © (06.03.10 23:13) [20]
> Ну, придется держать слово... ща, я часик покурю, отойду
> от алкоголя, доделаю. Вышлю на почту.

Ну и где обещанная прога ???

> Nostalgia (08.03.2010 12:46:24) [24]

А он отошел от алкоголя.

> А он отошел от алкоголя.
и разглядел небритость... ;)

Помогите пожалуйста доработать программу Найти похожие ветки