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

    +94

    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
    For i := 0 to 7 do
         Begin
          If ((iMass[i])[1] = dClick.xAlf) and (StrToInt((iMass[i])[2]) = dClick.yFlt) then
          BegiN
           cObject.Caption := '';
           If (i = 1) or (i = 2) then
           Begin
            (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier1.bmp');
            Break;
           End;
    
           If i = 4 then
           Begin
            (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier3.bmp');
            Break;
           End;
    
           If i >= 5 then
           Begin
            (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier2.bmp');
            Break;
           End;
    
           (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier'+IntToStr(i + 1)+'.bmp');
           Break;
          EnD;
         End;

    Мой высер. За неимением идей, больше ничего придумать не смог.

    Запостил: Govnocoder#0xFF, 15 Января 2011

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

    • показать все, что скрытонемного запутано, но в целом тяжело это назвать говнокодом
      Ответить
      • Да? А ящитаю, что это - чистейшей воды говно.
        Ответить
        • как самокритично
          Ответить
          • Объясните свою точку зрения.
            Ответить
            • я не знаю что сказать, просто не вижу в этом коде ничего особо говёного. лучше вы объясните чем он так плох
              Ответить
              • что плохого в коде с мэджик намберами?
                Вы издеваетесь или пишете на пхп?)
                Ответить
                • Какие ещё мэджик намберы? Мэджик лоджик!
                  Ответить
                • магические числа это конечно фигово но они не делают код таким уж говном
                  Ответить
                  • меджик намберы -- стареший способ сделать код говном
                    это примерно как гоуту

                    еще никто не знал про MVC, про трехзвенную архитектуру, про паттерны и рефакторинг, текстовые терминалы "glass tty" подключались к мейн-фреймам по сериальному порту, но все уже значли что меджик наберы это калл.
                    Ответить
                    • поблагодарим Анонимуса за краткий экскурс в историю говнокада
                      Ответить
                      • GovnoCAD
                        правильно, надо же как-то канализацию проектировать
                        Ответить
    • Массив (1, 1, 1, 4, 3, 2, 2, 2).
      Ответить
    • Код хоть и говно, но настолько унылое, что пожалуй заминусую, да
      Ответить
    • типун тебе на Ctrl+C!
      Ответить
    • Опять компренда минусует?
      Ответить
      • Упоротые последователи компренды. )
        Ответить
        • на них красный цвет всегда действовал негативно, вот и теперь тянутся ручонки к яркому крестику
          Ответить
      • Хотя есть ещё одна точка зрения от TarasB:
        Сионисты.
        Ответить
        • ну вот не все, как TarasB, обзавелись Легионом миротворцев, вот самые слабые и в минусах = )
          кстати-то, юзверей зарегено почти три тыщи, а активничает десятка два. Остальные - "мертвые души" т.н. "возмездия"?
          Ответить

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