Булевы глюки

← →
alt7 (2003-04-23 17:27) [0]

Есть глобальные 4 переменные сабжы. Есть TiDTelnet, срабатывает событие есть бул1 есть true, то тра-та-та, бул1 := false. Аналогично другие. Есть таймер который ставит ети переменные в тру. Изначально все в false. так как может срабатывать условие выше, если таймер еще не сработал?

← →
MBo © (2003-04-23 17:34) [1]

вряд ли эти глюки - булевы ;)

← →
Skier © (2003-04-23 17:35) [2]

>MBo
Класс ! :)

← →
Goffman (2003-04-23 17:36) [3]

> MBo © (23.04.03 17:34)

:-)

← →
alt7 (2003-04-23 17:37) [4]

Народ, я целый день пытался отловить. Поставил breakpoint"ы на все обработчики. Фигня.

← →
Smithson © (2003-04-23 17:50) [5]

Ты код покажи или изложи более внятно, без сленга и тра-та-та.

← →
Goffman (2003-04-23 17:58) [6]

Попробуй такой примерчик, и убедишся что булевы операторы ни причем

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; b:Boolean; i:Integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin //Символизирует твое событие if b then begin {Пока таймер не отработает лейбл не обновится} Label1.Caption:=DateTimeToStr(Now); b:=False; end; end; procedure TForm1.FormCreate(Sender: TObject); begin b:=False; i:=0; end; procedure TForm1.Timer1Timer(Sender: TObject); begin b:=True; inc(i); // Чтобы видеть когда обновится таймер Label2.Caption:=IntToStr(i); end; end.

← →
Palladin © (2003-04-23 18:07) [7]

ты Буля не трогай!

← →
Manulo © (2003-04-23 18:07) [8]

> срабатывает событие есть бул1 есть true, то тра-та-та, бул1
> := false.

Сорри за офтоп, но чем то напоминает електронный переводчик (How do you do - Как есть ты есть)

← →
alt7 (2003-04-23 18:12) [9]

могу залить комунить. потестить

← →
alt7 (2003-04-23 18:30) [10]

Вообщем кто найдеть чуть времени, быстрый инет, а то счет на секунды в программе ;)) то прошу указать куды слать, завтра прочту

← →
Goffman (2003-04-23 18:36) [11]

> alt7 (23.04.03 18:30)

Прикольная фраза :)

← →
NickBat © (2003-04-23 18:59) [12]

Ну кинь мне на мыло.

Правильный перевод как делать Вы делать

← →
alt7 (2003-04-24 16:12) [14]

Вообщем array of integer не работал тоже, только array of string заработал

Мы очень рады ;)
Ты о чем-то своем думал, маразм какой-то тут писал, неведомый нам array исправил, все и заработало. Замечательно!

>(How do you do - Как есть ты есть)
Как вы это делаете?
Ответ: All right!
перевод:
Всё правой!

ЯХДР

Булевы глюки Найти похожие ветки