Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+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!
и насчет "давно" - мне даже интересно... я последний раз в делфях работал аж в версии 6 (хотя тогда была и 7), freepascal как проект я помню, а вот про PABC до настоящего времени не слыхал.
был какой-то премиум-швемиум без которого в этой игрушке не было чего-то нужного.
> "давно"
< 5 лет назад, точнее не помню, D7 - начало прошлой декады, очевидно, что позже, ибо даже с феноменальной памятью нереально запомнить сведения о беглом взгляде на случайную прожку.
> freepascal
то серьезный проект
кстати, дельфи тоже были халявные когда-то
найти бы табличку сравнения возможностей разных версий Delphi 7 - Architect, Enterprise, Professional, Personal, чисто ради исторического интереса...
На русском языке это называется инструкцией.
а "help" - это помощь, но не инструкция и не руководство.
отличие в поддержке RaveReports, Corba(?) и т.д.
Сам не юзаю это все, так что по идее хватает Personal.
http://www.ibase.ru/prices/d7_feamatrix.pdf
хм, получается, что Personal вообще не работает с базами?
так что хуй с этой Personal, лучше уж Architect нагуглить
А сырцы интересно можно руками в нужные пути положить? Вот тока в лом проверять.
речь-то об официальной халяве для личного юзания
но это всё дѣла давно мiнувших днѣй, в багланде не жадничали и занимались популяризацией среди хоббистов
зато "New Windows XP™ themes" можно юзать!
я у ж молчу про индусятину с двумя циклами
Связные списки должны вообще явно запоминать не только начало и конец, но и последний элемент, к которому было обращение. А то в цштфзш вроде много списков, к которым можно обращаться только по индексу, часто перебирают последовательные индексы.
а вообще использовать список и обращаться по индексу - как-то странновато.
В цштфзш работа с некоторыми компонентами именно такая.
Прикольно. После
dispose(p^.next);
оказались в хвосте списка. Надеюсь список хоть двунаправленный?
может, при вызове голову запоминают? хотя, вряд ли :(
while p<>nil do
begin
t:=t^.next;
i:=i+1;
end;
этот цикл вечен
Если Турбо Паскаль под ДОС - то распидарасить память может нехило.