Текущий архив: 2003.06.30;
Скачать: CL | DM;
Вниз
Проблема с кодом Найти похожие ветки
← →
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]MBo ©, а как предлагаешь сделать.
← →
Serginio (2003-06-18 20:38) [7]Ты используешь со стековую переменную (Которые не всегда инициализируются). Надеюсь понятие Стек тебе известно. Добавь в свой класс TDes переменную a:False;
← →
Palladin © (2003-06-18 20:56) [8]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;
Страницы: 1 вся ветка
Текущий архив: 2003.06.30;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.01 c
