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

    +102

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    procedure TForm1.Timer1Timer(Sender: TObject);
begin
        if ((Edit1.Text <> '') or (Edit4.Text <> '')) then
                begin
                Button1.Enabled:=true;
                end;

        if ((Edit1.Text = '') or (Edit4.Text = '')) then
                begin
                Button1.Enabled:=false;
                end;
end;

    Таким образом настоящий ветеран говнокода защищает свое детище от "кривых" рук.

    Запостил: CyberKiller, 08 Июля 2012

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

    • ava bormand 08.07.2012 11:49 # +1

      Интересно, будет ли кнопка мерцать, когда одно из полей заполнено, а второе пусто?
      Ответить

    • ava govnomonad 08.07.2012 13:30 # +1

      от старкрафт/варкрафт-задротов не спасёт
      Ответить

    • ava eth0 08.07.2012 14:53 # +2

      Интересно, какой период у таймера. И почему бы не сделать это всё там, где и следует - в событии OnExit (или каком-то таком) едита.
      Ответить

      • ava TarasB 08.07.2012 15:34 # 0

        OnChange
        Ответить

        • ava Lure Of Chaos 08.07.2012 23:18 # 0

          я не знаю, этот OnChange сработает сразу же или после ухода фокуса к ангелам
          Ответить

          • ava bormand 09.07.2012 05:12 # 0

            Да вроде как сразу, при любом изменении текста в едите.
            Ответить

          • ava eth0 09.07.2012 07:25 # 0

            Для ухода фокуса и есть онэксит, тут покатит и вариант, предложенный выше, разве что тоже будет дёргаться на каждый чих.
            Ответить

      • ava guest 16.10.2012 18:45 # +3

        Случайно не 1 милисекунда?
        Ответить

      • ava guest 02.07.2013 13:07 # 0

        Люди, вы о чем вообще? Какой OnExit, какой OnChange?
        Для таких вещей используются экшены.
        Ответить

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