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

    • ava guest 05.05.2009 01:13 # +4

      Эх... ностальгия... Сам когда-то так делал :)
      Ответить

    • ava guest 05.05.2009 08:01 # 0

      Сан Саныч:
      Да... Button1, TreeView1... If в if-е... Комменты в фигурных скобках, по паскалевой привычке... Юность, счастливая юность... :)
      Ответить

    • ava guest 05.05.2009 13:23 # +3

      плохо конечно, но терпимее много.
      button1, treeview1 - проект на один раз
      if в if-e вполне допустимо когда не знаешь как будут потом компилить с полным вычислением выражений или нет.
      какая разница в чём комментарии?
      ну а ImageIndex... если нет времени то почему бы и не продешевить?
      в общем не тот говнокод от которого тошнит.
      Ответить

    • ava guest 05.05.2009 15:03 # −1

      а так же это 1k говна.
      Ответить

    • ava guest 05.05.2009 15:27 # +3

      Сан Саныч: а невидимое Memo не создавали ради его свойства Lines? =)
      Ответить

      • ava guest 12.01.2010 17:23 # 0

        +1
        Или ListBox. Он дешевле. У него одного скрола нет и редактировать он не умеет. :D
        Ответить

    • ava guest 07.06.2009 02:02 # +1

      Сан Саныч:
      [quote=Говногость]...проект на один раз...if в if-е вполне допустимо...какая разница в чём комментарии?...почему бы и не продешевить?...[/quote]Я не спорю, просто это говорит об отсутствии стиля и, скорее всего, о 'малоопытности' и юном возрасте программиста. [quote=Говногость]...невидимое Memo...[/quote] Да, знаете, приходилось пару раз =)
      Ответить

      • ava guest 12.01.2010 17:25 # −1

        В паскале не стандартизирован порядок вычисления логических выражений. Отсюда и if в if-е. В JAVA или С++ таких проблем нет. И там так не пишут.
        Ответить

      • ava guest6 29.04.2024 06:11 # 0

        >Сан Саныч:

        чувак, ну ты знаешь, что тебе делать с таким именем, правда?
        Ответить

    • ava guest 21.10.2009 11:58 # 0

      If в if-е...
      // s - StringList
if (s <> nil) then begin
  if (s.count... {или люая другая проверкаб люого другого свойства, любого другого класса, которая практически неизбежно вызовет ошибку, если класс не инициализирован}) then begin
    // ваши действия
  end;
end;
      Ответить

    • ava Govnocoder#0xFF 20.04.2011 18:34 # +1

      Гет проёбан.
      Ответить

    • ava gost 21.08.2014 14:00 # 0

      Боян, хотя и не такой старый.
      Ответить

      • ava kipar 21.08.2014 14:17 # +1

        >В паскале не стандартизирован порядок вычисления логических выражений. Отсюда и if в if-е
        В то время на говнокоде совсем не было людей разбирающихся в паскале?
        Ответить

        • ava 666_N33D135 22.05.2018 19:58 # 0

          > не стандартизирован порядок вычисления логических выражений
          Почему? В любом случае всё выражение выполнится полностью. Все приоритеты известны. (Хотя случалось ошибко, из-за того, что у логических операторов приоритет ниже, чем у операторов сравнения, а я об этом забывал.)
          Ответить

          • ava 666_N33D135 23.05.2018 08:39 # 0

            > у логических операторов приоритет ниже
            Блин, думаю одно, а пишу другое :). Выше, конечно же.
            Ответить

    • ava guest8 22.05.2018 20:02 # −999

      показать все, что скрытоvanished
      Ответить

      • ava 666_N33D135 22.05.2018 20:04 # 0

        В том, что его нет. (Хотя скобки вокруг условий можно опустить)
        Ответить

    • ava guest8 22.05.2018 20:25 # −999

      показать все, что скрытоvanished
      Ответить

    • ava guest8 30.10.2018 23:29 # −999

      показать все, что скрытоvanished
      Ответить

    • ava guest8 30.10.2018 23:34 # −999

      показать все, что скрытоvanished
      Ответить

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