Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

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

 
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]


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

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


 
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]

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


 
Nostalgia ©   (2010-03-06 22:50) [19]


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

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


 
KilkennyCat ©   (2010-03-06 23:13) [20]

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


 
Германн ©   (2010-03-07 01:09) [21]


> KilkennyCat ©   (06.03.10 23:13) [20]

Фотка понравилась, значит? :)


 
Virgo_Style ©   (2010-03-07 13:26) [22]


>Германн ©
> Фотка понравилась, значит? :)



> KilkennyCat ©   (06.03.10 23:13) [20]
> Отойду от алкоголя


:o)


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

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


 
Nostalgia ©   (2010-03-08 12:46) [24]


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

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


 
Anatoly Podgoretsky ©   (2010-03-08 12:50) [25]

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

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


 
sniknik ©   (2010-03-08 14:16) [26]

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



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.102 c
15-1275731524
REX
2010-06-05 13:52
2010.08.27
Комментарии в SQL (Access)


2-1274523488
Delphist2
2010-05-22 14:18
2010.08.27
excel


2-1268734595
MAcKZloy
2010-03-16 13:16
2010.08.27
ошибка в CBLRTSS.DLL


9-1186749096
@!!ex
2007-08-10 16:31
2010.08.27
Наложение спецэффектов на объекты.


15-1265185685
Сергей М.
2010-02-03 11:28
2010.08.27
Про VisualFoxPro и COM-серверы