Форум: "Основная";
Текущий архив: 2003.05.08;
Скачать: [xml.tar.bz2];
Вниз
Булевы глюки Найти похожие ветки
← →
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]Ну кинь мне на мыло.
← →
Anatoly Podgoretsky (2003-04-23 19:39) [13]Правильный перевод как делать Вы делать
← →
alt7 (2003-04-24 16:12) [14]Вообщем array of integer не работал тоже, только array of string заработал
← →
MBo (2003-04-24 16:14) [15]Мы очень рады ;)
Ты о чем-то своем думал, маразм какой-то тут писал, неведомый нам array исправил, все и заработало. Замечательно!
← →
NAlexey (2003-04-24 16:27) [16]>(How do you do - Как есть ты есть)
Как вы это делаете?
Ответ: All right!
перевод:
Всё правой!
← →
Palladin (2003-04-24 16:45) [17]ЯХДР
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.08;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c
