Я на грани самоубийства!!!

← →
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]

Сразу чувствуется, профи писал. Я такой текст даже придумать не смогу.

> j:=j+1;
>

Вот! увидел в этом коде! оазис, просто... :)

это защита авторских прав! чтобы враг не смог разобраться в исходниках! надо взять на вооружение)))

Бугага © (24.01.05 12:33) [22]
А кто вообще это писал?

Мой предшественник.. несколько лет назад.
Его координат в исходнике нет. Видимо он был скромным и пожелал остаться неизвестым (и живым).

← →
Иксик2 (2005-01-24 14:38) [32]

Мне дурно!
Боже, итак голова болела, теперь совсем...

CTRL+C/CTRL+V рулят неподеццки...

---
P.L.U.R. and WBR, NailMan aka 2:5020/3337.13

Ох ну ни фига себе... Это что же он принимал-то?

> Его координат в исходнике нет. Видимо он был скромным и
> пожелал остаться неизвестым (и живым).

Я бы тоже не дал своих координат :)
А вообще, мне кажется, он напакостить хотел... чтобы последующие за ним поломали голову...

По себе очень ранних времен знаю - замучено специально ради осознания собственной крутости :-)

Держись, Kerk. Мы все тебе сочуствуем.
// Ты б у начальства навел справки про предыдущего прогера, что б весь пыл на него направить, а то суицид - енто не круто.

← →
kirasukii (2005-01-24 20:55) [39]

суицид - это круто!!!

← →
Околокомпьютерный (2005-01-25 13:13) [40]

а компилитор тебе еще сочувствовать не начал???

Я на грани самоубийства!!! Найти похожие ветки