Динамические переменные, делфи, в чем ошибка

[Agent[PNZ]]

Задача такова: нужно создать односвязный список, и удалить из него последний элемент. Ну как я понял, мы вводим некоторое количество цифр, программа удаляет последний. То есть мы создаем список. Затем, созлаем новый элемент и присваиваем ему значение nil, а потом этот элемент dispos. Если что-то не так, а я почему то уверен что что-то не так то прошу напишите здесь. Словесный алгоритм решения мне бы очень помог. Строго не судите делфи занимаюсь не очень много.

вот то, что написал я:

implementation

{$R *.dfm}
type
link=^item;
item=record
g: integer;
v:link;
end;
var pyl,basis,p: link;
k: integer;
begin
basis:=nil;
for k:=0 to Form1.Memo1.Lines.Count-1 do begin
new(pyl);
pyl^.g:=StrToInt(Form1.Memo1.Lines[k]);
pyl^.v:=basis;
basis:=pyl;

procedure Udal(var r:link);
pyl,basis,p:link;
new(p);
if pyl^.v=nil then p:=pyl;
dispose(p);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Udal(r);
end;

end.

[alexBlack]

type
   link=^item;
   item=record
      g: integer;
      v:link;
    end;


var basis: link;
procedure TForm1.FormCreate(Sender: TObject);
var k : integer;
    pyl:link;
begin
   basis:=nil;
   for k:=0 to Form1.Memo1.Lines.Count-1 do begin
     new(pyl);
     pyl^.g:=StrToInt(Form1.Memo1.Lines[k]);
     pyl^.v:=basis;
     basis:=pyl;
   end;
end;

// Удалить последний - элемент не известен
// не нужно параметра
procedure UdalLast;
var p:link;
begin
   if basis = nil then exit;
   // Сначала нужно найти последний элемент
   p := basis;
   if p.v = nil then begin
      // Первый элемент = последнему
      dispose(p);
      basis := nil;
   end else begin
      // p.v <> nil - в списке > 1 элемента
      while p.v.v <> nil do begin
         p := p.v;
      end;
      // теперь p - предпоследний
      dispose(p.v);
      p.v := nil;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
   // Сколько элементов добавили, столько и удаляем
   for k:=0 to Form1.Memo1.Lines.Count-1 do begin
      UdalLast;
   end;
end;

[evg_m]

удаление элемента из списка

найти удаляемый элемент (tek:=) и его предыдущий(prev:=)
исхлючить элемент из списка (заменить ссылку) prev.link:=tek.link;
освободить память dispose(tek)

[Agent[PNZ]]

А в форме это выглядит как?У нас МЕМО1 - это куда мы вводим числа, правильно?а выводится список без последнего элемента куда?

[alexBlack]

Сообщение от Agent[PNZ]

А в форме это выглядит как?У нас МЕМО1 - это куда мы вводим числа, правильно?а выводится список без последнего элемента куда?

Тогда не надо удалять все элементы. Сделайте как у Вас и было - один вызов. После него проход по всем элементам списка и добавление данных в другое memo или в то-же самое по желанию

[Agent[PNZ]]

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

Тогда не надо удалять все элементы. Сделайте как у Вас и было - один вызов. После него проход по всем элементам списка и добавление данных в другое memo или в то-же самое по желанию

а как в таком случае будет выглядить программа?

[alexBlack]

Вроде бы речь шла о словесном алгоритме

procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
    p:link;
begin
   //for k:=0 to Form1.Memo1.Lines.Count-1 do begin
   UdalLast;
   p := basis;
   while p <> nil do begin
      memo1.Lines.add(intToStr(p.g));
      p := p.v
   end;
   //end;
end;

[Agent[PNZ]]

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

Вроде бы речь шла о словесном алгоритме

спасибо большоещас наберу подредактирую напишу тогда работает ли

[Agent[PNZ]]

Вот что в итоге:

type
   link=^item;
   item=record
      g: integer;
      v: link;
    end;


var basis: link;
procedure TForm1.FormCreate(Sender: TObject);
var k : integer;
    pyl:link;
begin
   basis:=nil;
   for k:=0 to Form1.Memo1.Lines.Count-1 do begin
     new(pyl);
     pyl^.g:=StrToInt(Form1.Memo1.Lines[k]);
     pyl^.v:=basis;   
     basis:=pyl;
   end;
end;

// Удалить последний - элемент не известен   
// не нужно параметра   
procedure UdalLast;
var p:link;   
begin   
   if basis = nil then exit;
   // Сначала нужно найти последний элемент   
   p := basis;   
   if p.v = nil then begin
      // Первый элемент = последнему   
      dispose(p);   
      basis := nil;
   end else begin   
      // p.v <> nil - в списке > 1 элемента   
      while p.v.v <> nil do begin
         p := p.v;
      end;
      // теперь p - предпоследний
      dispose(p.v);
      p.v := nil;   
   end;   
end;
  
procedure TForm1.Button1Click(Sender: TObject);   
var k:integer;
    p:link;
begin
   //for k:=0 to Form1.Memo1.Lines.Count-1 do begin
   UdalLast;
   p := basis;   
   while p <> nil do begin
      memo1.Lines.add(intToStr(p.g));   
      p := p.v
   end;   
   //end;

end;
end.

на форме у меня МЕМО1 - куда вводим в столбик числа, МЕМО2 - куда должны они выводится, кнопка закрыть и кнопка выполнить. Почему-то когда нажимаю кнопку выполнить ничего не происходит вообще, но программа компелируется и запускается.

[alexBlack]

МЕМО2 - куда должны они выводится

А в form1.ButtonClick - memo1

Что-то все-таки происходит - список выводится в memo1