Динамический список...на Delphi

[Olgasato]

Здравствуйте всем!
Очень нужна ваша помощь.. Я тут написала программу, которая добавляет и показывает динамический список, но никак не могу сообразить насчет УДАЛЕНИЯ узла элемента из списка..

Тут есть программа на Добавить и Показать (кнопочки)...
Кто знает, как написать процедуру для удаления узла из списка, помогите, пожалуйста!!

[n@sok]

// удалить элемент
procedure TForm1.Button3Click(Sendor: TObject);
var
prev, curr: TPStudent; // предыдущий и текущий элементы списка
begin
prev:=NIL;
curr:=head;
while curr <> NIL do
begin
if (curr^.f_name = Edit1.Text) and (curr^.l_name = Edit2.Text) then
begin // Ищем нужный элемент
if prev <> NIL then prev^.next:=curr^.next
else head:=curr^.next; // Если элемент первый меняем head
dispose(curr); // Освобождаем память для элемента списка
break;
end;
prev:=curr;
curr:=curr^.next;
end;
if curr=NIL then ShowMessage('Данного элемента в списке нет.');
end;

[Olgasato]

Спасибо большое, все работает....

Мне оказывается еще нужен здесь Поиск... А как это сделать - тоже никаких идей... Сегодня без него не прокатило

Может есть какие-нить идеи??

[Stilet]

Мне оказывается еще нужен здесь Поиск

А вон смотри, Насок, тебе написал ядро поиска, единственное что он добавил при нахождении удалить элемент, а ты вместо этого делай с ним нужное, например показывай.
Вот в коде, там где dispose(curr); вызывается значит элемент найден

[Olgasato]

Это надо вместо Dispose написать, чтобы он показал??

У меня что-то не получается..... не совсем поняла что куда писать..

Можно пожалуйста поподробней...

[n@sok]

Это надо вместо Dispose написать, чтобы он показал??

procedure TForm1.Button3Click(Sender: TObject);
var
curr: TPStudent; // текущий элемент списка
begin
curr:=head;
while curr <> NIL do
begin
if (curr^.f_name = Edit1.Text) and (curr^.l_name = Edit2.Text) then
begin // Ищем нужный элемент
ShowMessage(curr^.f_name+' '+curr^.l_name+#13); // <-- Вот здесь и пишется что нужно сделать с элементом
break;
end;
curr:=curr^.next;
end;
if curr=NIL then ShowMessage('Данного элемента в списке нет.');
end;

[Olgasato]

Спасибо Большое, друзья!!
Все очень доходчего!!

А по части стека и очереди: у меня есть написанная программа (Добавление и удаление элем-та), только на Turbo Pascal, можно ее как-нить перевести на Delphi и связать это все с кнопочками и с тем, куда вводить и выводить? вроде говорят, что они не сильно отличаются...(Turbo Pascal и Delphi)

(А то у нас было подобие преподавания Delphi, а потом пришла препод и сказала, что вы как хотите, а я буду читать на Turbo P... всем на поф )