1. Pascal / Говнокод #3423

    +103

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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
    procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
If (UpDown2.Position = 0) or (UpDown2.Position = 5) or (UpDown2.Position = 6) or
   (UpDown2.Position = 7) or (UpDown2.Position = 8) or (UpDown2.Position = 9) or
   (UpDown2.Position = 10) or (UpDown2.Position = 11) or (UpDown2.Position = 12) or
   (UpDown2.Position = 13) or (UpDown2.Position = 14) or (UpDown2.Position = 15) or
   (UpDown2.Position = 16) or (UpDown2.Position = 17) or (UpDown2.Position = 18) or
   (UpDown2.Position = 19) or (UpDown2.Position = 20) or (UpDown2.Position = 25) or
   (UpDown2.Position = 26) or (UpDown2.Position = 27) or (UpDown2.Position = 28) or
   (UpDown2.Position = 29) or (UpDown2.Position = 30) or (UpDown2.Position = 35) or
   (UpDown2.Position = 36) or (UpDown2.Position = 37) or (UpDown2.Position = 38) or
   (UpDown2.Position = 39) or (UpDown2.Position = 40) or (UpDown2.Position = 45) or
   (UpDown2.Position = 46) or (UpDown2.Position = 47) or (UpDown2.Position = 48) or
   (UpDown2.Position = 49) or (UpDown2.Position = 50) or (UpDown2.Position = 55) or
   (UpDown2.Position = 56) or (UpDown2.Position = 57) or (UpDown2.Position = 58) or
   (UpDown2.Position = 59) or (UpDown2.Position = 60)
    then StaticText4.Caption := 'минут';

If (UpDown2.Position = 1) or (UpDown2.Position = 21) or (UpDown2.Position = 31) or
   (UpDown2.Position = 41) or (UpDown2.Position = 51)
then StaticText4.Caption := 'минуту';

If (UpDown2.Position = 2) or (UpDown2.Position = 22) or (UpDown2.Position = 23) or
   (UpDown2.Position = 24) or (UpDown2.Position = 32) or (UpDown2.Position = 33) or
   (UpDown2.Position = 34) or (UpDown2.Position = 42) or (UpDown2.Position = 43) or
   (UpDown2.Position = 44) or (UpDown2.Position = 52) or (UpDown2.Position = 53) or
   (UpDown2.Position = 54)
then StaticText4.Caption := 'минуты';

If UpDown2.Position>60 then ShowMessage('больше нельзя');

end;

    Дао создания таймера обратного отсчета.
    Канон второй: вычисление плюральных окончаний.
    Комментарии и форматирование авторские.

    Запостил: bugmenot, 08 Июня 2010

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

    • ava TarasB 08.06.2010 18:01 # +3

      Точно говнокод, во-первых в дельфе для этого есть такой прикол, что можно писать if UpDown2.Position in [0, 5..20, 25..30, 35..40, 45..50, 55..59].
      Во-вторых, есть case, и в нём тоже можно указывать поддиапазоны.

      > Комментарии и форматирование авторские.

      Где комментарии?
      Ответить

      • ava bugmenot 08.06.2010 18:20 # −1

        >Где комментарии?
        забейте, вырвиглазное форматирование и комментарии капитана очевидность в первой части (3422).
        Ответить

    • ava Stalker 08.06.2010 19:06 # +1

      Ахренеть. 60 вызовов TCustomUpDown.GetPosition().
      ShowMessage('больше нельзя'); Знает меру. Уважаю :)
      Ответить

      • ava bugmenot 08.06.2010 20:10 # 0

        О да, но что характерно - вызовов только 59 :-)
        Автор скрупулезно перебирая значения из множества [0..60] умудрился проебать два числа :-)
        "больше нельзя" меня тоже умилило
        Ответить

    • ava Мистер Хэнки 08.06.2010 19:24 # +8

      >> ShowMessage('больше нельзя');
      эта строчка помогла мне бросить пить
      Ответить

      • ava TarasB 08.06.2010 19:31 # 0

        А начал ты пить от предыдущих 29 строчек?
        Ответить

    • ava ganja_boy 11.06.2010 09:54 # −4

      здравствуйте, меня зовут ganja_boy и я анонимный говнокодер.
      *все хлопают* привет, ganja_boy!
      Ответить

    • ava ganja_boy 11.06.2010 09:57 # +2

      интересно, а, раз уж на то пошло, то на этот контрол нельзя поставить ограничение до 60? или это чтобы человек понял, что больше нельзя?
      Ответить

      • ava bugmenot 15.06.2010 19:56 # −1

        можно, но тогда красивая завитушка в виде мессажбокса будет не нужна -- К.О.
        Ответить

    • ava bGczbZF 25.08.2021 01:26 # 0

      Я знаю, что Джейкоб к геям относится без негатива, но всё так быстро меняется, что я не уверен в том, что готов ли об этом говорить. Ведь одно дело брат. Он фактически меня развёл на этот разговор. Но Джейкоб... Всегда такой спокойный и собранный. Как я мог дойти до такого, что мой лучший друг меня избегает?
      Ответить

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