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

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

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

← →
Marser © (2005-01-25 13:22) [41]

> MacroDenS © (24.01.05 20:02) [38]
> Держись, Kerk. Мы все тебе сочуствуем.
> // Ты б у начальства навел справки про предыдущего прогера,
> что б весь пыл на него направить, а то суицид - енто не
> круто.

Дадад. И паяльник ватт на 25 прихвати :-)

← →
Рамиль © (2005-01-25 13:35) [42]

Marser © (25.01.05 13:22) [41]
За такой код лучше утюг:)

← →
Delphin © (2005-01-25 14:40) [43]

Рамиль © (25.01.05 13:35) [42]
> Дадад. И паяльник ватт на 25 прихвати :-)
Настоящие программисты/хакеры используют паяльник :))

← →
basken (2005-01-25 15:13) [44]

> Настоящие программисты/хакеры используют паяльник :))

а также – электрические вспоминатели (кипятильники) …))

← →
TUser © (2005-01-25 15:20) [45]

Автора кода надо заставить до конца жизни пользоваться одной-единственной шариковой мышкой, в том числе при работе с программами PhotoShop, QuarkXPress, PageMaker, AutoCAD, 3D Max, Сапер, а также УниверсальныйЗаменитьСломавшейсяКлавиатуры (рисует изображение клавиатуры и позволяет тыкать туда мышью).

← →
alt84 (2005-01-25 22:11) [46]

Ой..... Дэээээ?????
Что-то до боли знакомые строчки ;)
Смотрю, вам закусить нечем? :)
Тогда вот из последнего моего проджекта:
\s*СУПЕРМАРКЕТ "ДАСТАРХАН" \s*серия №xxxxx лиц.номер xxxxxxx \s*телефон доставки: xx-xx-xx \s*ДОБРО ПОЖАЛОВАТЬ ! \s*Касса № [0-9]* \s*Кассир:(?P<cashier_name>.*) (?P<item_cod>\d+).(?P<item_name>.*) ((?P<item_count>[0-9.]+) Х (?P<item_price>[0-9.]+)\s*)*Стоимость\.*(?P<item_total>[0-9.]+) (\s*Сторно\s*)*=+ Всего\.*(?P<total>[0-9.]+) В том числе НДС [0-9]+%\.*[0-9]+ [0-9]+\s*=[0-9.]+ ИТОГ\s*=[0-9.]+ \s*НАЛИЧНЫМИ\s*=(?P<agree>[0-9.]+) (СДАЧА\s*=[0-9.]+\s*)*ККМ\s+[0-9]+\s+ИНН\s+[0-9]+\s+#(?P<check_number>[0-9]+) [0-9.]+\s+[0-9:]+\s+.* .*ПРОДАЖ\S+\s+№[0-9]+ \s*ФП

Что-то не ясно? :) Парсер чеков для супермаркета в Казахстане :)
Ребят, вы что? Забыли, где Чуйская долина находиться? :)
А если это дело еще и с музончиком от нашей "Адаптация" забадяжить, то вообще такая отменная дурь получается, что только за комп и проги писать :) Гыыыыыыыыы :)

alt84 (25.01.05 22:11) [46]

твое понятнее.. :)
когда свое закончу, на твое перейду.. чтоб постепенно было.. без ломки..

> УниверсальныйЗаменитьСломавшейсяКлавиатуры (рисует изображение
> клавиатуры и позволяет тыкать туда мышью).

Простите за ламерство, а как это чудо будет работать, если в CMOS "halt on all errors""?

> Рамиль © (25.01.05 13:35) [42]
> Marser © (25.01.05 13:22) [41]
> За такой код лучше утюг:)

Нет, точечные воздействия имеют больший эффект при меньших послдествиях :-)

Вполне нормально. Я сам так иногда пишу. А с конструкцией with можно вполне запутаться самому.

procedure TNTDScreen.CalculateHosts; var i:integer; Var TextSize:TSize; begin //Подсчет координат узлов If (NTDSystem.N_Hosts>0) then for i:=1 to NTDSystem.N_Hosts do begin //вычисляем индекс картинки NTDSystem.Hosts[i].IndexPicture:=GetPointerPictureByParam(NTDSystem.Hosts[i].testing,NTDSystem.Hosts[i].TypeHost,NTDSyst em.Hosts[i].Status); //вычисление координат вывода пиктограммы NTDSystem.Hosts[i].PPicture.X:=NTDSystem.Hosts[i].X+StartCord.X-(Trunc(NTDSystem.Images[NTDSystem.Hosts[i].IndexPicture] .Image.Width*IconSize/100) div 2); NTDSystem.Hosts[i].PPicture.Y:=NTDSystem.Hosts[i].Y+StartCord.Y-(Trunc(NTDSystem.Images[NTDSystem.Hosts[i].IndexPicture] .Image.Height*IconSize/100) div 2); //Вычисление координат вывода описания узла NTDSystem.Hosts[i].PAbout.Y:=NTDSystem.Hosts[i].PPicture.Y+Trunc(NTDSystem.Images[NTDSystem.Hosts[i].IndexPicture].Image .Height*IconSize/100); TextSize:=WritedPicture.Bitmap.Canvas.TextExtent(NTDSystem.Hosts[i].AboutName); NTDSystem.Hosts[i].PAbout.X:=NTDSystem.Hosts[i].X+StartCord.X-(TextSize.cx div 2); //Вычисление координат вывода времени тестирования узла NTDSystem.Hosts[i].PTime.Y:=NTDSystem.Hosts[i].PAbout.Y+TextSize.cy; NTDSystem.Hosts[i].TimeString:=FormatDateTime("dd.mm.yyyy hh:nn",NTDSystem.Hosts[i].TimeWhenTest); //при выходе узла из строя выводим продолжительность if (NTDSystem.Hosts[i].Status=4) then NTDSystem.Hosts[i].TimeString:=NTDSystem.Hosts[i].TimeString+"("+FormatDateTime("hh:nn",now-NTDSystem.Hosts[i].Timeout)+ ")"; TextSize:=WritedPicture.Bitmap.Canvas.TextExtent(NTDSystem.Hosts[i].TimeString); NTDSystem.Hosts[i].PTime.X:=NTDSystem.Hosts[i].X+StartCord.X-(TextSize.cx div 2); //Вычисление начальных и конечных координат пиктограммы NTDSystem.Hosts[i].PTop.X:=StartCord.X+NTDSystem.Hosts[i].X-(Trunc(NTDSystem.Images[NTDSystem.Hosts[i].IndexPicture].Ima ge.Width*IconSize/100) div 2); NTDSystem.Hosts[i].PTop.Y:=StartCord.Y+NTDSystem.Hosts[i].Y-(Trunc(NTDSystem.Images[NTDSystem.Hosts[i].IndexPicture].Ima ge.Height*IconSize/100) div 2); NTDSystem.Hosts[i].PBottom.X:=StartCord.X+NTDSystem.Hosts[i].X+(Trunc(NTDSystem.Images[NTDSystem.Hosts[i].IndexPicture]. Image.Width*IconSize/100) div 2); NTDSystem.Hosts[i].PBottom.Y:=StartCord.Y+NTDSystem.Hosts[i].Y+(Trunc(NTDSystem.Images[NTDSystem.Hosts[i].IndexPicture]. Image.Height*IconSize/100) div 2); end; end;

>>Kerk © (24.01.05 10:56)
>>Скажите что-нибудь приятное.. чтоб жить захотелось!!!

Онлайновый клуб самоубийц учит людей суициду
http://www.membrana.ru/print.html?1044291600

Так что если соберешься, сделай это профессионально... а то получится как с тем кодом.

> alt84 (25.01.05 22:11) [46]

ну тут-то как раз все нонятно :)

А вот с [0] действительно тяжко... И много там кода в таком стиле ?

Soft © (26.01.05 19:50) [49]
Ну не знаю.. По мне вот так на порядок понятнее и прозрачнее

procedure TNTDScreen.CalculateHosts; var i:integer; TextSize:TSize; begin //Подсчет координат узлов if (NTDSystem.N_Hosts>0) then for i:=1 to NTDSystem.N_Hosts do begin Host := NTDSystem.Hosts[i]; //вычисляем индекс картинки Host.IndexPicture:=GetPointerPictureByParam(Host.Testing, Host.TypeHost, Host.Status); HostImage := NTDSystem.Images[Host.IndexPicture].Image; //вычисление координат вывода пиктограммы Host.PPicture.X:=Host.X+StartCord.X-(Trunc(HostImage.Width*IconSize/100) div 2); Host.PPicture.Y:=Host.Y+StartCord.Y-(Trunc(HostImage.Height*IconSize/100) div 2); //Вычисление координат вывода описания узла Host.PAbout.Y:=Host.PPicture.Y+Trunc(HostImage.Height*IconSize/100); TextSize:=WritedPicture.Bitmap.Canvas.TextExtent(Host.AboutName); Host.PAbout.X:=Host.X+StartCord.X-(TextSize.cx div 2); //Вычисление координат вывода времени тестирования узла Host.PTime.Y:=Host.PAbout.Y+TextSize.cy; Host.TimeString:=FormatDateTime("dd.mm.yyyy hh:nn",Host.TimeWhenTest); //при выходе узла из строя выводим продолжительность if (Host.Status=4) then Host.TimeString:=Host.TimeString+"("+FormatDateTime("hh:nn",now-Host.Timeout)+ ")"; TextSize:=WritedPicture.Bitmap.Canvas.TextExtent(Host.TimeString); Host.PTime.X:=Host.X+StartCord.X-(TextSize.cx div 2); //Вычисление начальных и конечных координат пиктограммы Host.PTop.X:=StartCord.X+Host.X-(Trunc(HostImage.Width*IconSize/100) div 2); Host.PTop.Y:=StartCord.Y+Host.Y-(Trunc(HostImage.Height*IconSize/100) div 2); Host.PBottom.X:=StartCord.X+Host.X+(Trunc(HostImage.Width*IconSize/100) div 2); Host.PBottom.Y:=StartCord.Y+Host.Y+(Trunc(HostImage.Height*IconSize/100) div 2); end; end;

Soft © (26.01.05 19:50) [49]
Вполне нормально. Я сам так иногда пишу.

Нормально??? Да давить за такое надо!!!

(Зря ты признался.. :))

>[54] Soft
и этот человек учит меня не ковырять в носу?

>[55] Kerk
похоже у Керка суициидальные настроения сменились жаждой мести авторам такого кода. оно правильно. это более конструктивный подход.

Я тоже много чего приятного встречал, однажды в мои руки попал проект использующий в качестве базы MsAccess + Delphi 3. Для начала автор подключил для доступа к Access BDE, но ему этого показалась мало и он добавил ODBC. Далее понапихол в проект кучу стороних компонент для красоты, разумеется без указания, что это за компоненты и где их взять. После этого там был написан "миленкий" код, этого шедевра повторить немогу! Но он умел открывать форму для просмотра 20000 локальных записей 4 минуты. И кажется смог добится экспотенциального падения производительности, при увеличении данных. Когда мне дали код, формы разумеется неоткрывались и я нашол все компоненты, чтото сделал с программой и она даже заработала. В конце концов переписал ее заного полностью на MsAccess. Смотря только на тех. задание, там различий дохрена было.
Мне вобще везет на перлы, главное в этом деле, понять как это должно работать. После просто переписываеш.

Мне тоже приходилось доделывать проект за одним чудиком. Мало того, что он написал свой интерпретатор, документацию по нему не оставил, так он еще и реализовал его так, что черт ногу сломит. Вот, например, этот кусок у меня в 6 Делфи не скомпилировался, сказал, что не может одну переменную цикла использовать. (Он писал на 3 Делфи). Как вообще такое можно писать?

function FldByTblFLdNm(const mTbl,NmFld:string):TmyFields; var i,j:integer; begin Result := Flds[0]; for i := 1 to FldCount do begin j := i; if Flds[i].F <> nil then if ( lowerCase(trim(Flds[i].F.DataSet.Name )) + "#" = (lowerCase(trim(NmTbl))+ "#") ) then begin for i := i to FldCount do begin j := i; if not (lowercase(trim(Flds[j].F.DataSet.Name) ) + "#" = lowercase(trim(NmTbl))+ "#" ) then begin for i := FldCount downto j do begin if (lowercase(trim(Flds[i].F.DataSet.Name) ) + "#" = lowercase(trim(NmTbl))+ "#" ) and (uppercase(trim(Flds[i].F.FieldName )) + "#" = uppercase(trim(NmFld))+ "#" ) then begin Result := Flds[i]; exit; end; end; Result := Flds[0]; exit; end; if (uppercase(trim(Flds[j].F.FieldName )) + "#" = uppercase(trim(NmFld))+ "#" ) then begin Result := Flds[j]; exit; end; end; break; end; end; end;

>
> LOL. Оригинальный чувак был. :))

Думаешь, его уже убили?

Интересно, а ко мне вот студенты на курсовые работы пришли. Стоит ли ждать такого?

Nous Mellon © (27.01.05 11:05) [62]

ну мало ли.. за такое можно. :)

TUser © (27.01.05 11:13) [63]

тех, кто сдаст что-то подобное лучше сразу отрави.

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