Школоло / Говнокод #18930 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 44
  45. 45
  46. 46
  47. 47
  48. 48
  49. 49
  50. 50
  51. 51
  52. 52
  53. 53
  54. 54
  55. 55
  56. 56
  57. 57
  58. 58
  59. 59
  60. 60
  61. 61
  62. 62
  63. 63
  64. 64
  65. 65
  66. 66
  67. 67
  68. 68
  69. 69
  70. 70
  71. 71
  72. 72
  73. 73
  74. 74
  75. 75
  76. 76
  77. 77
  78. 78
  79. 79
  80. 80
  81. 81
  82. 82
  83. 83
  84. 84
  85. 85
  86. 86
  87. 87
  88. 88
  89. 89
  90. 90
  91. 91
  92. 92
  93. 93
  94. 94
  95. 95
  96. 96
  97. 97
  98. 98
  99. 99
  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 ShAvErMa, (Updated )

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

  • ava bormand # Ссылка на оригинал 0

    Мне интересно, как автор вспоминал, какой статик текст должен показывать чекбокс, и какие чекбоксы при этом он должен выбить?

    Рисовал на бумажке рисунок с номерами?
    Ответить

      • ava inkanus-gray # Ссылка на оригинал 0 ⇈

        Какое же скучное занятие это програмирование: целый день мышкой нажимать, чтобы узнать, какой номер у какого чекбокса... А если потом придётся форму менять, совсем запутаться можно...
        Ответить

        • ava Vasiliy # Ссылка на оригинал 0 ⇈

          платят же за время. сиди себе мышкой тыкай копейка капает.
          Ответить

        • ava guest # Ссылка на оригинал 0 ⇈

          Ну а как еще?

          Нужно иногда взять волю в кулак, и сделать.

          Один раз мне нужно было поменять строку подключения к My
          SQL на каждой странице моего веб приложения, а это 1500 .php файлов, между прочим!
          И ничего: сделал! Потому что работа есть работа
          Ответить

          • ava Vasiliy # Ссылка на оригинал 0 ⇈

            А я тебя знаю. Ты тот самый мудак после которого мне пришлось лазать по 1500 файлам и менять строку подключения к mysql
            Ответить

            • ava Stallman # Ссылка на оригинал 0 ⇈

              Я кажется вас обоих знаю. Мне потом пришлось за вами лазать по всем 1500 файлам и ставить собачку перед mysql_connect(), что б параметры подключения не светить.
              Ответить

              • ava 3_14dar # Ссылка на оригинал 0 ⇈

                Пароль же не светится, алсо в рнр вообще никак нельзя отключить вывод ошибок в браузер?
                Ответить

                • ava Stallman # Ссылка на оригинал 0 ⇈

                  Чёрт, забыл, что без зелёного тут сарказм не понимают.
                  Не знаю, спалит ли пароль сам mysql_connect() в сообщении, но сама пыхомакака может написать свой error handler и выводить на экран не только сообщение об ошибке, но и подробнейший бектрейс вместе с параметрами. Это PHP, детка, тут даже обращение к встроенным функциям UB.
                  >алсо в рнр вообще никак нельзя отключить вывод ошибок в браузер?
                  Можно, но через жопу говноконфиг или через пердолинг с ini_set() в рантайме. Однако операторы шаблонизатора третьего разряда предпочитают выборочно гасить неважные ошибки собакой вручную, ведь они же лучше знают, как должен работать код.
                  Ответить

                  • ava inkanus-gray # Ссылка на оригинал 0 ⇈

                    А у операторов шаблонизатора тоже шесть разрядов, как у слесарей, или меньше?
                    Ответить

                  • ava 3_14dar # Ссылка на оригинал 0 ⇈

                    >но сама пыхомакака может написать свой error handler и выводить на экран не только сообщение об ошибке, но и подробнейший бектрейс вместе с параметрами.
                    >Это PHP, детка, тут даже обращение к встроенным функциям UB.
                    Ну такое можно при желании и в питоне сделать. При желании в питоне очень многое можно сделать, втч и то чего делать не стоит.
                    Ответить

                  • ava Vasiliy # Ссылка на оригинал 0 ⇈

                    > mysql_connect()
                    не палит пароль
                    >может написать свой error handler
                    слишком громкое название для or die()
                    Ответить

                • ava Vasiliy # Ссылка на оригинал 0 ⇈

                  Как это нельзя можно. Но в скрипте можно включить. И включают
                  Ответить

              • ava guest # Ссылка на оригинал 0 ⇈

                Нет, это был не я:) Я всегда перед функциями собачку ставлю: Зачем мне лишние ошибки в программер?
                Ответить

            • ava guest # Ссылка на оригинал 0 ⇈

              IT мир тесен, PHP профессионалов мало, так что скорее всего мы знакомы, да)
              Ответить

          • ava bormand # Ссылка на оригинал 0 ⇈

            1500 копий строки подключения к mysql?! Рахитектура высшего класса...

            P.S. Логин и пароль тоже поди в каждом из 1500 файлов захардкожен?
            Ответить

            • ava guest # Ссылка на оригинал 0 ⇈

              Конечно, ну а как же еще, если требования такие?
              В системе правда более тысячи сценариев, и многие используют базу, это же веб приложение!
              Я общался с опытными PHP разработчиками, мне все в один голос сказали что других решений нет.

              Это еще что: однажды я зашел по FTP тотал коммандером, нажал F4 и менял подключение в базе. А в то же самое время наш верситальщик тоже зашел в этот файл, и правил там какой-то css.

              И вот мои изменения похоже перетёрли его. С тех пор у нас правило: хочешь поменять файлик -- говори всем об этом, например "я меняю katalog_igrushky_mjaghkie.php" . Благо мы все в одной комнате сидим с ним и начальниками:)

              Кстати, а как бы вы эту проблему решили?
              Ответить

              • ava gost # Ссылка на оригинал 0 ⇈

                >С тех пор у нас правило: хочешь поменять файлик -- говори всем об этом, например "я меняю katalog_igrushky_mjaghkie.php" . Благо мы все в одной комнате сидим с ним и начальниками:)
                Потокобезопасность в реальном мире.
                Ответить

              • ava bormand # Ссылка на оригинал 0 ⇈

                > а как бы вы эту проблему решили
                1) не править файлики прямо на боевом серваке
                2) юзать систему контроля версий

                Хотя это уже не так весело 😉
                Ответить

                • ava 3_14dar # Ссылка на оригинал 0 ⇈

                  >весело
                  Весело было когда мы делали практикум по прогаммированию вдвоем и кидали файлики между двумя людьми и линупсом. После этого я стал юзать svn
                  Ответить

              • ava dxd # Ссылка на оригинал 0 ⇈

                В такой ситуации надо обосновать перед начальством менеджера рабочей копии. Чтобы все изменения шли ему письмом, он его читал и делал нужные правки в нужном порядке по FTP.
                Ответить

  • ava tucvbif # Ссылка на оригинал 0

    Я не понял, он что хотел сделать радиобаттн из чекбоксов?
    Ответить

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

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

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

    ↑
    8
    ↓