Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 1
+107
procedure delonefromend(var p:TPointer);
var i,n:integer; t:TPointer;
begin
i:=1;
t:=p;
while p<>nil do
begin
t:=t^.next;
i:=i+1;
end;
for n:=1 to i do p:=p^.next;
dispose(p^.next);
end;Для того чтобы добраться до последнего элемента в списке, сначала циклом подсчитывается в i их количество, а потом другим циклом от 1 до I указатель p перемещается на i элементов, тобишь в конец.
anigon,
03 Марта 2011
Follow us!