Передача переменной между прцедурами

← →
timon84 © (2005-08-09 00:52) [0]

Подскажите пожалуйста как сне передать значение переменной подсчитанной в процедере procedure TForm1.MaskEdit1Change(Sender: TObject); в процедуру procedure TForm1.Button1Click(Sender: TObject);.В общем в первой процедуре я подсчитываю интервал времени,а во второй присваиваю его св-ву таймера interval

← →
KilkennyCat © (2005-08-09 00:54) [1]

Создать глобальную переменную.

← →
GuAV © (2005-08-09 00:59) [2]

Поле формы.

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
...
private
{ Private declarations }
FInterval: Integer;
public
{ Public declarations }
end;

← →
Германн © (2005-08-09 02:55) [3]

2 KilkennyCat © (09.08.05 00:54) [1]
В данном случае достаточно "локальной переменной".
Или как у GuAV © (09.08.05 00:59) [2]
>Поле формы.

← →
evvcom © (2005-08-09 08:36) [4]

Точнее, наверное, все таки будет "поле класса".

← →
Leonid Troyanovsky © (2005-08-09 08:39) [5]

> Германн © (09.08.05 02:55) [3]
> 2 KilkennyCat © (09.08.05 00:54) [1]
> В данном случае достаточно "локальной переменной".

Не или, а только поле формы.

--
Regards, LVT.

← →
evvcom © (2005-08-09 09:42) [6]

> Не или, а только поле формы.

Ну с локальной переменной я тоже не придумал, что бы это такое могло быть, но и с "только" я тоже не согласен. Хотя изначально я не стал давать совет типа, что можно передать значение через тот же Sender, чтобы не пудрить мозги начинающему, но ведь так тоже можно извратиться. Поэтому "только" здесь все же неуместно.

← →
Leonid Troyanovsky © (2005-08-09 09:46) [7]

> evvcom © (09.08.05 09:42) [6]

> но ведь так тоже можно извратиться. Поэтому "только" здесь
> все же неуместно.

Именно потому что начинающие, то все остальное неуместно.
Пусть приучаются как положено.

--
Regards, LVT.

> evvcom © (09.08.05 09:42) [6]

Процедуры описанные - методы класса формы. И странно было бы передавать в глобальном. Раз используется классом - значит в классе - чтобы разные объекты не конфликтовали.

← →
Леван (2005-08-09 10:13) [9]

МОЖНО ИСПОЛЬЗОВАТЬ TAG :
В ПЕРВОЙ:
Maskedit1.tag:=12345;
во второй:

timer1.interval:=maskedit1.tag;

хотья лазить из обработчика одного обьекта в свойствах другого
не красиво, но TAG именно для таких целей и создан
(если надо передать два параметра, то без допольнительных полей форм или глобалных для унита переменных не обойтис :)

Большое спасибо всё вопросов больше нет.

Передача переменной между прцедурами Найти похожие ветки