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