| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите пожалуйста доработать программу
Nostalgia © (2010-03-03 22:25:00)Помогите пожалуйста доработать программу. Как сделать чтобы в Мемо выводился стэк из 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.
sniknik (2010-03-08 14:16:00) [1]> А он отошел от алкоголя.
и разглядел небритость... ;)
Anatoly Podgoretsky (2010-03-08 12:50:00) [2]> Nostalgia (08.03.2010 12:46:24) [24]
А он отошел от алкоголя.
Nostalgia (2010-03-08 12:46:00) [3]
> KilkennyCat © (06.03.10 23:13) [20]
> Ну, придется держать слово... ща, я часик покурю, отойду
> от алкоголя, доделаю. Вышлю на почту.
Ну и где обещанная прога ???
0x00FF00 (2010-03-07 13:37:00) [4]Блин, вот за что люблю Делфимастер — так это за подобные темы =)
Virgo_Style (2010-03-07 13:26:00) [5]
>Германн ©
> Фотка понравилась, значит? :)
> KilkennyCat © (06.03.10 23:13) [20]
> Отойду от алкоголя
:o)
Германн (2010-03-07 01:09:00) [6]
> KilkennyCat © (06.03.10 23:13) [20]
Фотка понравилась, значит? :)
KilkennyCat (2010-03-06 23:13:00) [7]Ну, придется держать слово... ща, я часик покурю, отойду от алкоголя, доделаю. Вышлю на почту.
Nostalgia (2010-03-06 22:50:00) [8]
> sniknik © (06.03.10 22:40) [18]
> > отправила, теперь доделывай программу ))свою? надеюсь
> побрился?
твой сарказм здесь не уместен
sniknik (2010-03-06 22:40:00) [9]> отправила, теперь доделывай программу ))
свою? надеюсь побрился?
Nostalgia (2010-03-06 21:29:00) [10]
> KilkennyCat © (06.03.10 15:16) [15]
> ждем-с.
отправила, теперь доделывай программу ))
Nostalgia (2010-03-06 20:55:00) [11]куда отправлять то ?
KilkennyCat (2010-03-06 15:16:00) [12]ждем-с.
Nostalgia (2010-03-06 11:54:00) [13]
> Плохиш © (06.03.10 00:25) [11]
> > Nostalgia © (05.03.10 18:43) [9]Так фотография будет
> или программу дорабатывать уже не надо?
фотография будет !!! программу дорабатывать надо !!!
Nostalgia (2010-03-06 11:54:00) [14]
> Плохиш © (06.03.10 00:25) [11]
> > Nostalgia © (05.03.10 18:43) [9]Так фотография будет
> или программу дорабатывать уже не надо?
фотография будет !!! программу дорабатывать надо !!!
Германн (2010-03-06 01:16:00) [15]
> KilkennyCat © (05.03.10 23:30) [10]
> Плохиш © (06.03.10 00:25) [11]
См. Игорь Шевченко © (04.03.10 17:19) [7]
Может не хватить дискового пространства для сей фотогалереи.
Плохиш (2010-03-06 00:25:00) [16]
> Nostalgia © (05.03.10 18:43) [9]
Так фотография будет или программу дорабатывать уже не надо?
KilkennyCat (2010-03-05 23:30:00) [17]просил. но, может, не у тебя? впрочем, какая разница, все равно не прислали.
Nostalgia (2010-03-05 18:43:00) [18]
> KilkennyCat © (04.03.10 19:31) [8]
> я просил. не прислала
ничего ты не просил, не ври..
KilkennyCat (2010-03-04 19:31:00) [19]я просил. не прислала.
Игорь Шевченко (2010-03-04 17:19:00) [20]Плохиш © (04.03.10 17:09) [6]
Их тут много было, одесситов со стеками. На групповую фотографию хватит.
Причем, код юнита со стеком у них, похоже единственный.
Сакральный.
> А ты что её фотографию уже видел?
Я и не просил :P
| |
Страницы: 