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

    +86.2

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    with (VirNode^) do
    begin
      VirNode^.ImageIndex := vir.iNum;
      VirNode^.Txt := vir.sAttr[1] + ' - ' + vir.sAttr[3];
    end;

    сначала было без with а потом забыл убрать "VirNode^." :)

    Запостил: Joe, 15 Августа 2009

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

    • Типичная ситуация, ничего особенного :P
      Ответить
    • а оно работает?
      Ответить
      • Должно работать. Delphi не найдет совпадения для VirNode^.VirNode^, поэтому будет просто использовать VirNode^.
        Ответить
    • Ничего особенного...
      Ответить
    • Основное говно в этом коде - собственно инструкция "with".
      Ответить
      • +100500
        Ответить
        • +1, т.к. понижает читабельность.
          имхо разрешение писать вызов функции без параметров без скобочек как в С++ тоже понижает читабельность. Наличие () явно показывает, что это ФУНКЦИЯ, а не пропертя или переменная.
          Ответить
          • OMG!! в VisualBasic - есть и with и
            >разрешение писать вызов функции без параметров без скобочек
            насчет последнего - согласен иногда создает траблы
            Ответить
            • про with: к тому же отладчик работает кривовато (по крайней мере в ранних версиях),
              да и когда смотришь на чужой код, где 1 экран кода обернут в with, не линейный и понятный типа присвоения кучи пропертей,
              а с циклами? упоминанием других переменных - очень весело. автор сего кода Borland...
              пример: метод TShape.Paint() - сам код простой, но разбираясь первый раз...
              Ответить
    • И где здесь говнокод? Даже назвать пукнул нельзя...
      Ответить

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