1. Список говнокодов пользователя TikiRU

    Всего: 1

  2. Pascal / Говнокод #15864

    +79

    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
    if (Grid.DataSource.DataSet.Name = 'tMMain')
      or (Grid.DataSource.DataSet.Name = 'tMain')
      then
        Tg := Grid.DataSource.DataSet.FieldByName('ARTID').AsInteger
      else
        if Grid.DataSource.DataSet.Name = 'tAnalog' then
          Tg := Grid.DataSource.DataSet.FieldByName('IDPROD').AsInteger
        else
          if Grid.DataSource.DataSet.Name = 'tPriceSet' then
            Tg := Grid.DataSource.DataSet.FieldByName('IDPROD').AsInteger
          else
            if Grid.DataSource.DataSet.Name = 'tProd' then
              Tg := Grid.DataSource.DataSet.FieldByName('ID').AsInteger
            else
              Tg := 0;

    Крутое решение проблемы разных полей в разных источниках вызова.
    А вы говорите виртуализация, перегрузка функций....

    TikiRU, 29 Апреля 2014

    Комментарии (39)