Говнокод #18930 — Pascal — Говнокод.ру

Pascal / Говнокод #18930

−45
1. 001
2. 002
3. 003
4. 004
5. 005
6. 006
7. 007
8. 008
9. 009
10. 010
11. 011
12. 012
13. 013
14. 014
15. 015
16. 016
17. 017
18. 018
19. 019
20. 020
21. 021
22. 022
23. 023
24. 024
25. 025
26. 026
27. 027
28. 028
29. 029
30. 030
31. 031
32. 032
33. 033
34. 034
35. 035
36. 036
37. 037
38. 038
39. 039
40. 040
41. 041
42. 042
43. 043
44. 044
45. 045
46. 046
47. 047
48. 048
49. 049
50. 050
51. 051
52. 052
53. 053
54. 054
55. 055
56. 056
57. 057
58. 058
59. 059
60. 060
61. 061
62. 062
63. 063
64. 064
65. 065
66. 066
67. 067
68. 068
69. 069
70. 070
71. 071
72. 072
73. 073
74. 074
75. 075
76. 076
77. 077
78. 078
79. 079
80. 080
81. 081
82. 082
83. 083
84. 084
85. 085
86. 086
87. 087
88. 088
89. 089
90. 090
91. 091
92. 092
93. 093
94. 094
95. 095
96. 096
97. 097
98. 098
99. 099
100. 100
```
procedure TForm1.CheckBox1Click(Sender: TObject);
begin

if checkbox1.Checked then checkbox2.Checked:=false;
if checkbox1.Checked then checkbox3.Checked:=false;
if checkbox1.Checked then checkbox4.Checked:=false;
if checkbox1.Checked then checkbox5.Checked:=false;
if checkbox1.Checked then checkbox6.Checked:=false;
if checkbox1.Checked then checkbox7.Checked:=false;
if checkbox1.Checked then checkbox8.Checked:=false;
if checkbox1.Checked then checkbox9.Checked:=false;
if checkbox1.Checked then checkbox10.Checked:=false;
if checkbox1.Checked then checkbox11.Checked:=false;
if checkbox1.Checked then checkbox12.Checked:=false;
if checkbox1.Checked then image1.Visible:=true else
image1.Visible:=false;
if checkbox1.Checked then statictext2.Visible:=true else
statictext2.Visible:=false;
if checkbox1.Checked then statictext3.Visible:=true else
statictext3.Visible:=false;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then image2.Visible:=true else
image2.Visible:=false;
if checkbox3.Checked then statictext5.Visible:=true else
statictext5.Visible:=false;
if checkbox3.Checked then statictext4.Visible:=true else
statictext4.Visible:=false;
if checkbox3.Checked then checkbox1.Checked:=false;
if checkbox3.Checked then checkbox2.Checked:=false;

if checkbox3.Checked then checkbox4.Checked:=false;
if checkbox3.Checked then checkbox5.Checked:=false;
if checkbox3.Checked then checkbox6.Checked:=false;
if checkbox3.Checked then checkbox7.Checked:=false;
if checkbox3.Checked then checkbox8.Checked:=false;
if checkbox3.Checked then checkbox9.Checked:=false;
if checkbox3.Checked then checkbox10.Checked:=false;
if checkbox3.Checked then checkbox11.Checked:=false;
if checkbox3.Checked then checkbox12.Checked:=false;
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked then image3.Visible:=true else
image3.Visible:=false;
if checkbox4.Checked then statictext6.Visible:=true else
statictext6.Visible:=false;
if checkbox4.Checked then statictext7.Visible:=true else
statictext7.Visible:=false;

if checkbox4.Checked then checkbox1.Checked:=false;
if checkbox4.Checked then checkbox2.Checked:=false;
if checkbox4.Checked then checkbox3.Checked:=false;

if checkbox4.Checked then checkbox5.Checked:=false;
if checkbox4.Checked then checkbox6.Checked:=false;
if checkbox4.Checked then checkbox7.Checked:=false;
if checkbox4.Checked then checkbox8.Checked:=false;
if checkbox4.Checked then checkbox9.Checked:=false;
if checkbox4.Checked then checkbox10.Checked:=false;
if checkbox4.Checked then checkbox11.Checked:=false;
if checkbox4.Checked then checkbox12.Checked:=false;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked then image4.Visible:=true else
image4.Visible:=false;
if checkbox2.Checked then statictext8.Visible:=true else
statictext8.Visible:=false;
if checkbox2.Checked then statictext9.Visible:=true else
statictext9.Visible:=false;
if checkbox2.Checked then checkbox1.Checked:=false;

if checkbox2.Checked then checkbox3.Checked:=false;
if checkbox2.Checked then checkbox4.Checked:=false;
if checkbox2.Checked then checkbox5.Checked:=false;
if checkbox2.Checked then checkbox6.Checked:=false;
if checkbox2.Checked then checkbox7.Checked:=false;
if checkbox2.Checked then checkbox8.Checked:=false;
if checkbox2.Checked then checkbox9.Checked:=false;
if checkbox2.Checked then checkbox10.Checked:=false;
if checkbox2.Checked then checkbox11.Checked:=false;
if checkbox2.Checked then checkbox12.Checked:=false;
end;

procedure TForm1.CheckBox9Click(Sender: TObject);
begin
if checkbox9.Checked then image5.Visible:=true else
image5.Visible:=false;
if checkbox9.Checked then statictext10.Visible:=true else
statictext10.Visible:=false;
if checkbox9.Checked then statictext11.Visible:=true else
statictext11.Visible:=false;
if checkbox9.Checked then checkbox1.Checked:=false;
if checkbox9.Checked then checkbox2.Checked:=false;
if checkbox9.Checked then checkbox3.Checked:=false;
```
это делфи и это только часть кода всего там 144 if))

Запостил: ShAvErMa, 29 Октября 2015

Tweet
Комментарии (32) RSS
- gost 29.10.2015 08:24 # +2
  
  Лаба или что-то похуже?
  Ответить
  - imihajlov 29.10.2015 10:23 # +3
    
    суровый ынтырпрайз
    Ответить
- kegdan 29.10.2015 14:10 # +2
  
  Циклы для мудаков, десу
  Ответить
- bormand 29.10.2015 17:19 # +2
  
  Мне интересно, как автор вспоминал, какой статик текст должен показывать чекбокс, и какие чекбоксы при этом он должен выбить?
  
  Рисовал на бумажке рисунок с номерами?
  Ответить
  - imihajlov 29.10.2015 17:47 # +3
    
    Зачем? Форма перед глазами была, нажал мышкой и узнал.
    Ответить
    - inkanus-gray 29.10.2015 18:09 # +2
      
      Какое же скучное занятие это програмирование: целый день мышкой нажимать, чтобы узнать, какой номер у какого чекбокса... А если потом придётся форму менять, совсем запутаться можно...
      Ответить
      
      kegdan 29.10.2015 19:27 # 0
      
      ну так а без это совсем скучно
      Ответить
      
      Vasiliy 31.10.2015 18:15 # 0
      
      платят же за время. сиди себе мышкой тыкай копейка капает.
      Ответить
      
      guest 31.10.2015 18:46 # 0
      
      ну вобщем ПХПшники так и делают
      Ответить
      
      Vasiliy 31.10.2015 19:19 # 0
      
      в пхп мышкой не потыкаешь.
      Ответить
      
      guest 31.10.2015 18:47 # 0
      
      Ну а как еще?
      
      Нужно иногда взять волю в кулак, и сделать.
      
      Один раз мне нужно было поменять строку подключения к My
      SQL на каждой странице моего веб приложения, а это 1500 .php файлов, между прочим!
      И ничего: сделал! Потому что работа есть работа
      Ответить
      
      Vasiliy 31.10.2015 19:18 # 0
      
      А я тебя знаю. Ты тот самый мудак после которого мне пришлось лазать по 1500 файлам и менять строку подключения к mysql
      Ответить
      
      Stallman 31.10.2015 22:46 # 0
      
      Я кажется вас обоих знаю. Мне потом пришлось за вами лазать по всем 1500 файлам и ставить собачку перед mysql_connect(), что б параметры подключения не светить.
      Ответить
      
      3_14dar 31.10.2015 23:15 # 0
      
      Пароль же не светится, алсо в рнр вообще никак нельзя отключить вывод ошибок в браузер?
      Ответить
      
      Stallman 31.10.2015 23:42 # +2
      
      Чёрт, забыл, что без зелёного тут сарказм не понимают.
      Не знаю, спалит ли пароль сам mysql_connect() в сообщении, но сама пыхомакака может написать свой error handler и выводить на экран не только сообщение об ошибке, но и подробнейший бектрейс вместе с параметрами. Это PHP, детка, тут даже обращение к встроенным функциям UB.
      >алсо в рнр вообще никак нельзя отключить вывод ошибок в браузер?
      Можно, но через жопу говноконфиг или через пердолинг с ini_set() в рантайме. Однако операторы шаблонизатора третьего разряда предпочитают выборочно гасить неважные ошибки собакой вручную, ведь они же лучше знают, как должен работать код.
      Ответить
      
      inkanus-gray 31.10.2015 23:51 # 0
      
      А у операторов шаблонизатора тоже шесть разрядов, как у слесарей, или меньше?
      Ответить
      
      Stallman 01.11.2015 00:02 # 0
      
      Ага, и молоко за вредность, лол.
      Ответить
      
      3_14dar 01.11.2015 01:34 # +2
      
      >но сама пыхомакака может написать свой error handler и выводить на экран не только сообщение об ошибке, но и подробнейший бектрейс вместе с параметрами.
      >Это PHP, детка, тут даже обращение к встроенным функциям UB.
      Ну такое можно при желании и в питоне сделать. При желании в питоне очень многое можно сделать, втч и то чего делать не стоит.
      Ответить
      
      Vasiliy 02.11.2015 18:29 # +1
      
      > mysql_connect()
      не палит пароль
      >может написать свой error handler
      слишком громкое название для or die()
      Ответить
      
      guest 03.11.2015 05:41 # +2
      
      у пыхогеев свои отношения
      Ответить
      
      Vasiliy 02.11.2015 18:27 # 0
      
      Как это нельзя можно. Но в скрипте можно включить. И включают
      Ответить
      
      guest 07.11.2015 01:59 # +1
      
      Нет, это был не я:) Я всегда перед функциями собачку ставлю: Зачем мне лишние ошибки в программер?
      Ответить
      
      guest 07.11.2015 01:59 # 0
      
      IT мир тесен, PHP профессионалов мало, так что скорее всего мы знакомы, да)
      Ответить
      
      bormand 31.10.2015 19:25 # +1
      
      1500 копий строки подключения к mysql?! Рахитектура высшего класса...
      
      P.S. Логин и пароль тоже поди в каждом из 1500 файлов захардкожен?
      Ответить
      
      guest 07.11.2015 01:57 # +2
      
      Конечно, ну а как же еще, если требования такие?
      В системе правда более тысячи сценариев, и многие используют базу, это же веб приложение!
      Я общался с опытными PHP разработчиками, мне все в один голос сказали что других решений нет.
      
      Это еще что: однажды я зашел по FTP тотал коммандером, нажал F4 и менял подключение в базе. А в то же самое время наш верситальщик тоже зашел в этот файл, и правил там какой-то css.
      
      И вот мои изменения похоже перетёрли его. С тех пор у нас правило: хочешь поменять файлик -- говори всем об этом, например "я меняю katalog_igrushky_mjaghkie.php" . Благо мы все в одной комнате сидим с ним и начальниками:)
      
      Кстати, а как бы вы эту проблему решили?
      Ответить
      
      gost 07.11.2015 08:07 # 0
      
      >С тех пор у нас правило: хочешь поменять файлик -- говори всем об этом, например "я меняю katalog_igrushky_mjaghkie.php" . Благо мы все в одной комнате сидим с ним и начальниками:)
      Потокобезопасность в реальном мире.
      Ответить
      
      bormand 07.11.2015 09:20 # +2
      
      > а как бы вы эту проблему решили
      1) не править файлики прямо на боевом серваке
      2) юзать систему контроля версий
      
      Хотя это уже не так весело ;)
      Ответить
      
      3_14dar 07.11.2015 10:18 # +1
      
      >весело
      Весело было когда мы делали практикум по прогаммированию вдвоем и кидали файлики между двумя людьми и линупсом. После этого я стал юзать svn
      Ответить
      
      guest 07.11.2015 15:38 # +3
      
      борманд, ты скучный
      Ответить
      
      dxd 24.01.2016 19:03 # +2
      
      В такой ситуации надо обосновать перед начальством менеджера рабочей копии. Чтобы все изменения шли ему письмом, он его читал и делал нужные правки в нужном порядке по FTP.
      Ответить
  - guest 03.11.2015 18:01 # 0
    
    Даблклик на виджете же!
    Ответить
- tucvbif 24.01.2016 14:21 # 0
  
  Я не понял, он что хотел сделать радиобаттн из чекбоксов?
  Ответить
Добавить комментарий
Ошибка компиляции комментария:

Гости могут высказаться только в понедельник, среду, четверг или воскресение
Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

А не использовать ли нам bbcode?

[b]жирный[/b] — жирный

[i]курсив[/i] — курсив

[u]подчеркнутый[/u] — подчеркнутый

[s]перечеркнутый[/s] — перечеркнутый

[blink]мигающий[/blink] — мигающий

[color=red]цвет[/color] — цвет (подробнее)

[size=20]размер[/size] — размер (подробнее)

[code=<language>]some code[/code] (подробнее)

Проверочный код: *

Говнокод: по колено в коде.

Pascal / Говнокод #18930

Комментарии (32) RSS

Добавить комментарий