-------------------------------
z := L;
n:=StrToInt(LabeledEdit4.Text);
for i := 1 to n-2 do
begin
z := z.next;
q := z.next;
end;
z.next := q.next;
dispose(q);
--------------------------------
Вот, упростил до этого действия и работает именно так ак задано у меня условие в задании...теперь вижу что не атк использовал переменную "q"
Благодарю!
Сейчас попробую с проверкой на nil пошаманить)
|