Форум: "Потрепаться";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];
ВнизЯ на грани самоубийства!!! Найти похожие ветки
← →
Kerk © (2005-01-24 10:56) [0]Не могу больше разбирать подобный код!!!
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).Poin terPut.Objects[AfoPut]).KolKm:=0;
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolPKm:=0;
for i:=0 to TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).PropKiloms.Count-2 do
begin
if (TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).P ointerPut.Objects[AfoPut]).PropKiloms.Objects[i]).Prop) or
(TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).P ointerPut.Objects[AfoPut]).PropKiloms.Objects[i]).Nest) then
begin
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolPKm:=
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolPKm+1;
j:=j+1;
end
else
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolKm:=
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolKm+1;
TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).Po interPut.Objects[AfoPut]).PropKiloms.Objects[i]).Nom:=j;
end;
TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).Po interPut.Objects[AfoPut]).PropKiloms.Objects[
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).PropKiloms.Count-1]).Nom:=
TPropKm(TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).Po interPut.Objects[AfoPut]).PropKiloms.Objects[
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).PropKiloms.Count-2]).Nom;
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolKm:=
TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).PointerPut .Objects[AfoPut]).KolKm*10;
Скажите что-нибудь приятное.. чтоб жить захотелось!!!
← →
Думкин © (2005-01-24 10:57) [1]Автор писал из дурки. Стало легче? :))
← →
Kerk © (2005-01-24 10:58) [2]Думкин © (24.01.05 10:57) [1]
Автор писал из дурки. Стало легче? :))
Не очень. Боюсь я сам скоро там окажусь. :)
← →
REA (2005-01-24 10:59) [3]Многие тсзть "программисты" так пишут. Не дай бог в этом разбираться! Легче заново написать.
← →
REA (2005-01-24 11:00) [4]Чтобы стало легче: замени всю эту предысторию на With - полегчает.
← →
Думкин © (2005-01-24 11:00) [5]Это тот самый код что ты говорил? Как он вообще выжил?
← →
REA (2005-01-24 11:01) [6]Чтобы стало легче: замени всю эту предысторию на With - полегчает.
← →
Kerk © (2005-01-24 11:01) [7]Думкин © (24.01.05 11:00) [5]
да. именно он. :(
← →
REA (2005-01-24 11:02) [8]Это кажется refucktoring называется...
← →
NeyroSpace © (2005-01-24 11:02) [9]Это не код, это книга времен! Ее между строк читать надо:-)
← →
jack128 © (2005-01-24 11:07) [10]мда... copy/paste рулит безбожно :-)
← →
Игорь Шевченко © (2005-01-24 11:09) [11]Чему удивляться - оплата построчная.
← →
Kerk © (2005-01-24 11:11) [12]Игорь Шевченко © (24.01.05 11:09) [11]
Чему удивляться - оплата построчная.
А такое бывает? И если построчная, почему комментарием совсем нет?
← →
Гаврила © (2005-01-24 11:13) [13]Думаю, такой код в процессе разбора нужно постепенно переписывать, приводя к нормальному виду
← →
какой-то дядька (2005-01-24 11:14) [14]Вот к чему приводит отсутствие макросов и шаблонов. Люди стреляться хотят.
← →
Kerk © (2005-01-24 11:15) [15]какой-то дядька (24.01.05 11:14) [14]
Вот к чему приводит отсутствие макросов и шаблонов.
К этому приводит не отстутствие макросов и шаблонов, а отстутсвие мозгов, Андрей.
← →
TUser © (2005-01-24 11:15) [16]Автошемой его, Автошемой
← →
TUser © (2005-01-24 11:16) [17]Напомнило такую ссылку (тут кто-то давал)
http://www.rsdn.ru/forum/Message.aspx?mid=858629&only=1
← →
basken (2005-01-24 11:23) [18]гггг... Вот это изврат :))), Перепеши все заново - будет намного быстрее... или можешь попробовать что то в этом роде... Мое имхо - такие вещи надо переписывать
...
var
...
myPole: TPole;
...
begin
...
myPole := TPole(TNapravl(TPch(TDorog(PointerDor.Objects[AfoDor]).PointerPCH.Objects[AfoPch]).PointerNapr.Objects[AfoN]).Poin terPut.Objects[AfoPut]);
....
← →
Kerk © (2005-01-24 11:25) [19]basken (24.01.05 11:23) [18]
Перепеши все заново - будет намного быстрее...
Дык куда ж я денусь? Я уже неделю такой вот код переделываю!!!
← →
basken (2005-01-24 11:32) [20]По рукам надо за такие вещи(код) давать... С одной стороны смешно немного, а с другой – кому то разгребать все эти "писули"...
← →
Babay © (2005-01-24 11:48) [21]Блин ...
До такого даже в пятницу 13, в полнолуние, в бреду после 2-х месячной пьянки не додумаешся.
А тут в жизни и на трезвую голову.
ОЧЕНЬ СОЧУСТВУЮ !!!!
Иди бери ящик пива, а лучше водки....
---
Мои соболезнования.
← →
Бугага © (2005-01-24 12:33) [22]Да уж... Керк, мои соболезнования... :(
А кто вообще это писал?
← →
какой-то дядька (2005-01-24 13:02) [23]>К этому приводит не отстутствие макросов и шаблонов, а отстутсвие мозгов
Макросы + шаблоны + мозги + вкус + чувство эстетики = красиво оформленный код, который нестыдно показать. Мне правда, до этого далеко.
← →
DSKalugin © (2005-01-24 13:07) [24]гагагагага. На мыло таких писателей кода
← →
SergP. (2005-01-24 13:08) [25]
> Игорь Шевченко © (24.01.05 11:09) [11]
> Чему удивляться - оплата построчная.
Скорее не построчная а посимвольная...
← →
kirasukii (2005-01-24 13:09) [26]На это: sorm@fsb.ru?
← →
VMcL © (2005-01-24 13:09) [27]>>TUser © (24.01.05 11:16) [17]
>Напомнило такую ссылку (тут кто-то давал)
http://www.rsdn.ru/forum/Message.aspx?mid=858629&only=1
Хммм... и я такую траву хочу покурить :D
← →
kaif © (2005-01-24 13:42) [28]Сразу чувствуется, профи писал. Я такой текст даже придумать не смогу.
← →
KilkennyCat © (2005-01-24 13:45) [29]
> j:=j+1;
>
Вот! увидел в этом коде! оазис, просто... :)
← →
stud © (2005-01-24 13:52) [30]это защита авторских прав! чтобы враг не смог разобраться в исходниках! надо взять на вооружение)))
← →
Kerk © (2005-01-24 14:19) [31]Бугага © (24.01.05 12:33) [22]
А кто вообще это писал?
Мой предшественник.. несколько лет назад.
Его координат в исходнике нет. Видимо он был скромным и пожелал остаться неизвестым (и живым).
← →
Иксик2 (2005-01-24 14:38) [32]Мне дурно!
Боже, итак голова болела, теперь совсем...
← →
NailMan © (2005-01-24 14:57) [33]CTRL+C/CTRL+V рулят неподеццки...
---
P.L.U.R. and WBR, NailMan aka 2:5020/3337.13
← →
Беспечный_Ангел © (2005-01-24 14:57) [34]Ох ну ни фига себе... Это что же он принимал-то?
← →
Бугага © (2005-01-24 19:42) [35]
> Его координат в исходнике нет. Видимо он был скромным и
> пожелал остаться неизвестым (и живым).
Я бы тоже не дал своих координат :)
А вообще, мне кажется, он напакостить хотел... чтобы последующие за ним поломали голову...
← →
Marser © (2005-01-24 19:50) [36]По себе очень ранних времен знаю - замучено специально ради осознания собственной крутости :-)
← →
Kerk © (2005-01-24 19:56) [37]Marser © (24.01.05 19:50) [36]
Я так думаю, что тут программер не очень ранних времен был. Видимо клинический случай.
← →
MacroDenS © (2005-01-24 20:02) [38]Держись, Kerk. Мы все тебе сочуствуем.
// Ты б у начальства навел справки про предыдущего прогера, что б весь пыл на него направить, а то суицид - енто не круто.
← →
kirasukii (2005-01-24 20:55) [39]суицид - это круто!!!
← →
Околокомпьютерный (2005-01-25 13:13) [40]а компилитор тебе еще сочувствовать не начал???
Страницы: 1 2 вся ветка
Форум: "Потрепаться";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];
Память: 0.54 MB
Время: 0.04 c