| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Страницы:   < 1 2 >

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.

---

Плохиш   (2010-03-04 17:09:00) [21]

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

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

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

---

Игорь Шевченко   (2010-03-04 16:58:00) [22]

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

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

---

Плохиш   (2010-03-04 16:42:00) [23]

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

---

Nostalgia   (2010-03-04 12:56:00) [24]

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

---

Плохиш   (2010-03-04 09:58:00) [25]

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

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

---

Игорь Шевченко   (2010-03-03 23:29:00) [26]

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


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

---

Страницы:   < 1 2 >

Наверх