Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c