![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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. |