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

    Всего: 1

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

    +99

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    try
            SetPropValue(c, aqGetConfigproperty_name.asString,aqGetConfigpropery_value.asvariant);
            aqGetConfig.Next;
        if aqGetConfigproperty_name.AsString = 'TabVisible'
        then begin
            if aqGetConfigpropery_value.AsString = '1' then vis:=True
            else vis:=False;
            SetPropValue(c, aqGetConfigproperty_name.asString,vis);
            end

    Вот так мы ставим свойства закладок из конфигуратора:)

    judywood, 03 Сентября 2009

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