[Nostalgia]

Помогите пожалуйста доработать программу. Как сделать чтобы в Мемо выводился стэк из 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.

[lmikle]

вообще, примерно так:

Код:

var
  P  : TStackEl;
begin
  memo1.lines.clear;
  P := S.StackTop;
  while P <> Nil do
    begin
       memo1.lines.add(P.el);
       P := P.prev;
    end;
end;

ЗЫ. Использовал твое описание.

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

И что это за строки и откуда они возмутся?
Ваша структура StackEl явно этих строк не содержит. Или вы хотите вывести строковое представление el ?

[Nostalgia]

всё исправила. в мемо не выводятся строки(( почему ? подскажите пожалуйста

Код:

	
	

			
				
Сообщение от lmikle
				
вообще, примерно так:

	
Код:
	
var
  P  : TStackEl;
begin
  memo1.lines.clear;
  P := S.StackTop;
  while P <> Nil do
    begin
       memo1.lines.add(P.el);
       P := P.prev;
    end;
end;


ЗЫ. Использовал твое описание.
			
		





	
	

			
				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;
  MySTack:TStack;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyStack:=TStack.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  P  : TStackEl;
begin
  memo1.lines.clear;
  P := MyStack.StackTop;
  while P <> Nil do
    begin
       memo1.lines.add(P.el);
       P := P.prev;
    end;
end;


end.


unit Unit2;

interface
uses SysUtils, Dialogs;
const
  StackEmpty=nil;
type
  T=string[10];
  TStackEl=^StackEl;
  StackEl=record
  el:T;
  prev:TStackEl;
end;

TStack=class
public
   StackTop:TStackEl;
  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.
 
			
		

[lmikle]

Гы! А что ты исправила-то?

[Nostalgia]

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

Гы! А что ты исправила-то?

то что ты написал !!!