Конференция "Начинающим" » Почему не работает счетчик нажиманий на кнопке? [D7, XP]
 
  • Dima21 (08.08.18 09:29) [0]
    Доброго дня всем участникам форума! Может кто знает почему в мой код счетчика нажиманий не работает?:

    procedure TForm1.Button1Click(Sender: TObject);
    var r:byte;
    begin
    if Button1.Caption='Button1' then r:=0;
    case r of
    0,1:begin Button1.Caption:='yes'+inttostr(r);r:=r+1;end;
    2:begin Button1.Caption:='no'+inttostr(r);r:=1;end;
    end;//case
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    Button1.Caption:='Button1';
    end;

    Надо чтобы в первый раз нажав получить - yes0; второй - yes1; третий - no3; в четвертый = как второй, пятый=как третий и т.д.
    Почему счетчик не срабатывает?

    Пробовал вместо byte использовать integer все ровно не работает. Может кто знает в чем дело? Спасибо, заранее всем!
  • sniknik © (08.08.18 10:18) [1]
    r нужно сделать глобальной переменной, локальные создаются вместе с выполнением процедуры, и не ининициализированы/т.е. могут иметь любое значение.
  • Dima21 (08.08.18 12:49) [2]
    Благодарю. Все работает.
 
Конференция "Начинающим" » Почему не работает счетчик нажиманий на кнопке? [D7, XP]
Есть новые Нет новых   [93030   +19][b:0.001][p:0.001]