|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как объявить переменную, чтобы она определялась на всех формах?
переменную типа integer нужно сделать общей для всех форм. как?
|
#2
|
||||
|
||||
Для этого модуль в котором объявлена эта переменная должен быть указан в секции Uses. В случае, если имена переменных в разных модулях одинаковые, то обращение к переменной конкретного модуля должно сопровождаться упоминанием имени модуля. Например:
Код:
Inc(MyUnit1.i); MyUnit3.i := MyUnit1.i + MyUnit2.i; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
||||
|
||||
модуль с глобальной переменной:
Код:
unit Unit2; interface var i: Integer; implementation end. Код:
unit Unit1; interface uses Unit2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin i:=0; end; end. Пишу программы за еду. __________________ |
#4
|
|||
|
|||
спасибо большое, я сама разобралась сделала как раз так, как вы показали
Последний раз редактировалось Una, 20.10.2010 в 15:18. |