необходимо сделать стек на указателях с использованием ООП

[TROXEVASIN]

Скажем необходимо сделать стек на указателях с использованием ООП... Вот вариант. Он косячный...

Описание классов:

  Telement= class
  prev:^Telement;
  inf: string;
  end;
  Tstek = class
  conec: ^Telement;
  end;

Использованные переменные:

var
  Form1: TForm1;
  Stek: Tstek;
  Cur: ^TElement;

Сами процедуры

procedure TForm1.FormCreate(Sender: TObject);
begin
  Stek:=Tstek.Create;
  Edit1.Text:='1';
  Cur:=nil;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Stek.Destroy;
end;
procedure TForm1.Button1Click(Sender: TObject);
var T:Telement;
begin
  if Stek.conec=nil then begin
                           T:=Telement.Create;
                           T.inf:=Edit1.Text;
                           T.prev:=nil;
                           Stek.conec:=Addr(T);
                         end
                    else begin
                           T:=Telement.Create;
                           T.inf:=Edit1.Text;
                           T.prev:=Addr(Stek.conec);
                           Stek.conec:=Addr(T);
                         end;
end;
 
// Косячит в этой процедуре
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Cur=nil then begin
                    Cur:=Addr(Stek.conec^);
                    Label1.Caption:=Cur^.inf;
                  end
             else begin
                    Cur^:=Cur.prev^;
                    Label1.Caption:=Cur.inf;
                  end;
end;
end.

[Maslan]

PElement=^TElement;//Это что бы члену Tstek можно было просто
                             // присваиваивать, без колдунства @(ptr^) 
                             //указатели на TElement. 
                             //(Если оставить оформление через ^TElement, то система 
                             //будет различать типы TStek.conec и TElement.prev и не даст их 
                            //присваивать друг другу.

Telement= class
   prev: PElement;
   inf: string;
end;

Tstek = class
   conec: PElement;
end;

var
Form1: TForm1;
Stek: Tstek;
Cur: PElement;

procedure TForm1.Button1Click(Sender: TObject);
Var NewElem:PElement;
begin
 New(NewElem);
 NewElem^:=Telement.Create;
 if Stek.conec=nil
    then //Свежесозданный и будет концом
      begin
       Stek.conec:=NewElem;
       Stek.conec.prev:=nil;
       Stek.conec.inf:=Edit1.Text;
      end
   else// Кстати, какой стек-то делаем FIFO,FILO?
    begin
       Cur:=Stek.conec;
        while Cur.prev<>nil do
        Cur := Cur.prev;
        New(Cur.prev);
        Cur.prev^ := Telement.Create;
        Cur.prev^.prev:=nil;
        Cur.prev^.inf:=Edit1.Text;
       Cur:=nil;
    end;
 NewElem:=nil   
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Cur=nil
  then
    begin
     Cur:= Stek.conec;
     Label1.Caption:=Cur.inf;
    end
  else
    if Cur.prev<>nil
     then
      begin
       Cur:=Cur.prev;
       Label1.Caption:=Cur.inf;
      end
     else
       Label1.Caption:='Top of stack reached';
end;

[TROXEVASIN]

Спасибо, Maslan. Стек было не важно FIFO или FILO. Но у меня появился ряд вопросов:

1.Из процедуры TForm1.Button1Click(Sender: TObject):
Stek.conec:=NewElem;//Здесь указателю присвоили указатель
Stek.conec.inf:=Edit1.Text;//а здесь уже, по идее Stek.conec-адрес как такое возможно?

2.Почему эти записи выдают одинаковый результат?
Stek.conec.inf
Stek.conec^.inf

3.При необходимости освободить память мне пользоваться Dispose?

[Maslan]

1.Из процедуры TForm1.Button1Click(Sender: TObject):
Stek.conec:=NewElem;//Здесь указателю присвоили указатель
Stek.conec.inf:=Edit1.Text;//а здесь уже, по идее Stek.conec-адрес как такое возможно?

Это возможно, т.к. Delphi автоматически умеет разыменовывать указатели, если эт неообходимо по логике. А логика тут какая? (указатель_на_класс)>поле_класса, значит можно разыменовать.

2.Почему эти записи выдают одинаковый результат?
Stek.conec.inf
Stek.conec^.inf

По написанному выше. Запись Stek.conec^.inf более правильная, но необязательная.

3.При необходимости освободить память мне пользоваться Dispose?

 <variable>.Free;
Типа 
 while Stek.conec<>nil do 
  begin
   cur:=Stek.conec;
  Stek.conec:=Stek.conec^.prev;
  cur.Free 
end;

[TROXEVASIN]

Можно ли вынести описание класса c использованием указателей в dll библиотеку?
Вопрос возник по тому что процедура работает корректно в теле программы, а если ее вынести в dll она выдает какую-то ошибку.

library Classy;

uses
SysUtils,
Classes;
{$R *.res}
type
PRabota=^TRabota;
PElement=^TElement;
PStek=^TStek;
TRabota = class
Imya: String;
no: integer;
PredshRab: String;
a: integer;
b: integer;
m: integer;
SredProd: real;
D: real;
SKO: real;
Color: byte;
next: PRabota;
Stek: PStek;
end;
TElement = class
AdrRab:PRabota;
next:PElement;
end;
TStek = class
Home: PElement;
Position: PElement;
end;
TList = class
Home: PRabota;
end;
procedure RabotaADD(Imyae,PredshRabe:string;n oe,ae,be,me:integer;List:TList); stdcall;
Var Rab:PRabota;
begin
if List.Home=nil
then //Свежесозданный и будет Началом
begin
New(Rab);
Rab^:=TRabota.Create;
Rab.Color:=0;
Rab.Imya:=Imyae;
Rab.no:=noe;
Rab.PredshRab:=PredshRabe;
Rab.a:=ae; Rab.b:=be; Rab.m:=me;
Rab.SredProd:=(ae+4*me+be)/6;
Rab.SKO:=(be-ae)/6;
Rab.D:=Sqr(Rab.SKO);
List.Home:=Rab;
List.Home.next:=nil;
end
else //Свежесозданный встает в конец Стека используем FIFO
begin
Rab:=List.Home;
while Rab.next<>nil do Rab := Rab.next;
New(Rab.next);
Rab.next^ := TRabota.Create;
Rab.next.next:=nil;
Rab.next.Color:=0;
Rab.next.Imya:=Imyae;
Rab.next.no:=noe;
Rab.next.PredshRab:=PredshRabe;
Rab.next.a:=ae; Rab.next.b:=be; Rab.next.m:=me;
Rab.next.SredProd:=(ae+4*me+be)/6;
Rab.next.SKO:=(be-ae)/6;
Rab.next.D:=Sqr(Rab.next.SKO);
end;
end;

exports
RabotaADD;
begin
end.

[Stilet]

Какую ошибку и на какой строке?

И еще переназови свой TList по другому, ибо такой клас уже определен в Classes и могут быть баги

И еще нескромный вопрос зачем тебе использовать именно указатели на класс? почему переменную Next не сделать типа Trabota ведь это все равно станет указателем.

[Maslan]

Пока не понятно, что за ошибка....
Может ругается на то, что передаваемый ей TList в основной проге не определён?

program Main;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 type
 PRabota=^TRabota;
PElement=^TElement;
PStek=^TStek;
TRabota = class
Imya: String;
no: integer;
PredshRab: String;
a: integer;
b: integer;
m: integer;
SredProd: real;
D: real;
SKO: real;
Color: byte;
next: PRabota;
Stek: PStek;
end;
TElement = class
AdrRab:PRabota;
next:PElement;
end;
TStek = class
Home: PElement;
Position: PElement;
end;
TList = class
Home: PRabota;
end;
procedure RabotaADD(Imyae,PredshRabe:string;noe,ae,be,me:integer;List:TList); stdcall;external 'Classy.dll';

Var L:TList;
begin
 L:=TList.Create;
 RabotaADD('workname','none',1,2,3,4,L);
 WriteLn(L.Home.Imya);
 ReadLn;

end.

Только что отработала....

[Stilet]

Маслан, ты не верно тестишь.
А автора этот код в ДЛЛ прописан. и ошибка возникает из-за того скорее всего что в ДЛЛ тип TList определен так а в прокте, в котором автор вызывает свою процедуду TList определен по другому.

Еще раз попрошу автора перечитать мой предидуший пост внимательно.

[Maslan]

Маслан, ты не верно тестишь.

Эм.... в чём не прав?
Я же

procedure RabotaADD(Imyae,PredshRabe:string;n oe,ae,be,me:integer;List:TList); stdcall;external 'Classy.dll';

Я согласен, что проблема скорее всего в TList, но считаю, что он не

в котором автор вызывает свою процедуду TList определен по другому

а вообще не определён.

[Stilet]

Эм.... в чём не прав?

Нет ты прав, ты описал эти типы не в ДЛЛ а в проге тут другое - автор не сказал как и где вызывает эту процу (может он ее в ДЛЛи и будет вызывать)

а вообще не определён.

Определен в юните Classes, который скорее всего стоит у автора там где он эту свою процу вызывает. Потому и говорю что неверно ты тестишь - у тя с твоим подходом все путем ессно.