Списки (требуется доработка)

[Mariya2009]

Задачка такая: Удалить из списка первый элемент, который равен значению "0".
Программа добавляет, по нажатию на кнопочку, любое кол-во элементов, при нажатии на вторую кнопочку список отображается, а вот при нажатии на третью должен удоляться первый элемент по списку который равен "0". Список заполняется числами.
Прилагаю код Unita.

[Манжосов Денис :)]

procedure TForm1.FormCreate(Sender: TObject);
var i: byte;
begin
i := 0;
  while Memo1.Lines.Strings[i] <> '0' do
     Inc(i);
  Memo1.Lines.Strings[i] := '';
end;

[Mariya2009]

У меня в программке используется Label1 для вывода списка

[Greblin]

Я так подозреваю, что требуется всё-таки именно удаление из списка, а не из мемо
Mariya2009, киньте весь проект, припишу вам функцию, а то лень форму ваять

[Mariya2009]

procedure TForm1.Button3Click(Sender: TObject);
var curr, prev, del:L1;
k:integer;
i:integer;
begin
* k:=3; //ввод номера удоляемого элемента
* curr := f1;
* prev := nil;
* i := 0;
* while curr <> nil do begin
*** inc(i);
*** if i = k then begin
***** del := curr;
***** if prev = nil//удоляем голову
******* f1 :=curr
***** else //удоляем где-то в середине
******* prev^.link := curr^.link;
***** dispose(del);
**** break;//выходим из цикла
*** end;
*** prev := curr;
*** curr := curr^.link;
* end;
end;


есть вот такой код, который удоляет элемент списка по введеному номеру, при нажатии на кнопку. Может здесь можно что-то изменить , потому как программа впринципе похожа??????

[Mariya2009]

Вот весь проект

[Greblin]

да, всё тоже самое, кроме вот этого

if i = k then

пишете

if curr^.elem = 0 then

ну и переменная i естественно не нужна

[Mariya2009]

неполучается, даж ошибки некоторые поправила все равно не выходит

[Greblin]

Лови, я там в комментах написал, где ошибка была

[Mariya2009]

ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!!!!!!!!