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

    +136

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    procedure Button1Click(Sender:TObject)
      begin
      if (TreeView1.Selected<>Nil) then
        if (TreeView1.Selected.ImageIndex = 5) then
          begin
          {выбран лист дерева - обрабатываем}
          ........
          end;
      end;

    Написано мною на втором курсе. Тип узла в дереве определялся по ImageIndex - узел каждого типа имел свою картинку.

    Запостил: guest, 04 Мая 2009

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

    • Эх... ностальгия... Сам когда-то так делал :)
      Ответить
    • Сан Саныч:
      Да... Button1, TreeView1... If в if-е... Комменты в фигурных скобках, по паскалевой привычке... Юность, счастливая юность... :)
      Ответить
    • плохо конечно, но терпимее много.
      button1, treeview1 - проект на один раз
      if в if-e вполне допустимо когда не знаешь как будут потом компилить с полным вычислением выражений или нет.
      какая разница в чём комментарии?
      ну а ImageIndex... если нет времени то почему бы и не продешевить?
      в общем не тот говнокод от которого тошнит.
      Ответить
    • а так же это 1k говна.
      Ответить
    • Сан Саныч: а невидимое Memo не создавали ради его свойства Lines? =)
      Ответить
      • +1
        Или ListBox. Он дешевле. У него одного скрола нет и редактировать он не умеет. :D
        Ответить
    • Сан Саныч:
      [quote=Говногость]...проект на один раз...if в if-е вполне допустимо...какая разница в чём комментарии?...почему бы и не продешевить?...[/quote]Я не спорю, просто это говорит об отсутствии стиля и, скорее всего, о 'малоопытности' и юном возрасте программиста. [quote=Говногость]...невидимое Memo...[/quote] Да, знаете, приходилось пару раз =)
      Ответить
      • В паскале не стандартизирован порядок вычисления логических выражений. Отсюда и if в if-е. В JAVA или С++ таких проблем нет. И там так не пишут.
        Ответить
      • >Сан Саныч:

        чувак, ну ты знаешь, что тебе делать с таким именем, правда?
        Ответить
    • If в if-е...
      // s - StringList
      if (s <> nil) then begin
        if (s.count... {или люая другая проверкаб люого другого свойства, любого другого класса, которая практически неизбежно вызовет ошибку, если класс не инициализирован}) then begin
          // ваши действия
        end;
      end;
      Ответить
    • Гет проёбан.
      Ответить
    • Боян, хотя и не такой старый.
      Ответить
      • >В паскале не стандартизирован порядок вычисления логических выражений. Отсюда и if в if-е
        В то время на говнокоде совсем не было людей разбирающихся в паскале?
        Ответить
        • > не стандартизирован порядок вычисления логических выражений
          Почему? В любом случае всё выражение выполнится полностью. Все приоритеты известны. (Хотя случалось ошибко, из-за того, что у логических операторов приоритет ниже, чем у операторов сравнения, а я об этом забывал.)
          Ответить
          • > у логических операторов приоритет ниже
            Блин, думаю одно, а пишу другое :). Выше, конечно же.
            Ответить
    • показать все, что скрытоvanished
      Ответить
      • В том, что его нет. (Хотя скобки вокруг условий можно опустить)
        Ответить
    • показать все, что скрытоvanished
      Ответить
    • показать все, что скрытоvanished
      Ответить
    • показать все, что скрытоvanished
      Ответить

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