Проблема с кодом

← →
C_R_U_S_H (2003-06-18 13:04) [0]

Вот код:
procedure TDes.Timer1Timer(Sender: TObject);
var
a:boolean;
begin
if a then
begin
a:=false; //Пропускает
Panel1.Caption:="";
Panel11.Caption:="";
end
else
begin
a:=true;
Panel1.Caption:="БР";
Panel11.Caption:="С";
end;
end;
Все бы ни чего, но Timer почему-то игнорирует строчку a:=false;
он её просто пропускает

← →
MBo © (2003-06-18 13:07) [1]

потому что она нафиг не нужна, как и сама переменная a

← →
Юрий Федоров © (2003-06-18 13:16) [2]

Если ты думаешь, что значение переменной А сохранится до след. вызова, то ты ошибаешься

← →
Bel © (2003-06-18 14:18) [3]

Может, тебе стоит переменную "а" сделать глобальной? А то > Юрий Федоров © (18.06.03 13:16)

← →
Poirot © (2003-06-18 14:23) [4]

> Может, тебе стоит переменную "а" сделать глобальной

Лучше членом класса.... не по ООП - юзать глобальные переменные!!!!

← →
Palladin © (2003-06-18 14:39) [5]

лучьше использовать tag

← →
C_R_U_S_H (2003-06-18 20:23) [6]

← →
Serginio (2003-06-18 20:38) [7]

Ты используешь со стековую переменную (Которые не всегда инициализируются). Надеюсь понятие Стек тебе известно. Добавь в свой класс TDes переменную a:False;

procedure TDes.Timer1Timer(Sender: TObject);
begin
if timer1.tag=0 then
begin
timer1.tag:=1; //Пропускает
Panel1.Caption:="";
Panel11.Caption:="";
end
else
begin
timer1.tag:=0;
Panel1.Caption:="БР";
Panel11.Caption:="С";
end;
end;

Проблема с кодом Найти похожие ветки