Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.22;
Скачать: CL | DM;

Вниз

Глобальная переменная   Найти похожие ветки 

 
Gentos   (2007-04-04 11:19) [0]

Добрый день уважаемые творцы. У меня есть две формы как с одной формы получить доступ к переменной типа integer другой формы , где ее и как объявлять надо вот в чем вопрос, помогите плиз


 
Плохиш ©   (2007-04-04 11:24) [1]


> Gentos   (04.04.07 11:19)  

Неужели в книжках основ уже не oписывают?

PS. interface, public


 
DrPass ©   (2007-04-04 11:25) [2]

Для начала разобраться с терминологией. Есть "глобальная переменная", объявленная в самом модуле, которая не относится ни к какой форме. И есть переменная "поле класса" у формы. Тебе что надо?


 
Сергей М. ©   (2007-04-04 11:28) [3]


> где ее и как объявлять надо


Глобальные переменные любого типа должны быть объявлены в разделе interface модуля.

unit uForm1;
interface
...
var
 MyVariable: MyType;
...
implementation
...

unit uForm2;
...
implementation
...
uses .., uForm1, ...
...
MyVariable := MyValue;

Но к формам это все не имеет ни малейшего отношения.


 
Gentos   (2007-04-04 11:30) [4]


> Плохиш ©  

Описывают только в моей не описывают.
вот объявил

unit MainFormMoney;
...
public
   { Public declarations }
   c : Integer;
end;


как мне с формы unit OtchetFormMoney;
получить доступ к с MainFormMoney пишу в OtchetFormMoney MainFormMoney.с - пишет мне учитесь, как получить доступ все таки ?


 
Gentos   (2007-04-04 11:33) [5]


> DrPass ©  

Мне надо получить доступ к  переменной "поле класса" формы


 
Reindeer Moss Eater ©   (2007-04-04 11:33) [6]

Через экземпляр и получи


 
Сергей М. ©   (2007-04-04 11:34) [7]


> вот объявил


> public
>    { Public declarations }
>    c : Integer;


с - это не переменная, это поле класса. Заруби на носу.


 
Gentos   (2007-04-04 11:35) [8]


> Сергей М. ©  


та мне всего лишь необходимо доступ к integer а Вы тут уже type пишите :)


 
Gentos   (2007-04-04 11:36) [9]


> Сергей М. ©   (04.04.07 11:34) [7]


зарубил :), но как получить доступ все-таки ? :)


 
Сергей М. ©   (2007-04-04 11:36) [10]


> Gentos   (04.04.07 11:35) [8]


integer - это тот самый MyType)


 
Gentos   (2007-04-04 11:36) [11]


> Reindeer Moss Eater ©   (04.04.07 11:33) [6]


а можна кодом :) ?


 
SergGG ©   (2007-04-04 11:37) [12]

{Unit1}

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TForm1 = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

 GlobalInt:Integer;

implementation

{$R *.dfm}

end.
{----------}
{Unit2}

unit Unit2;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TForm2 = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation
uses Unit1;

{$R *.dfm}

end.


В Form2 будет доступ к GlobalInt


 
Сергей М. ©   (2007-04-04 11:39) [13]


> как получить доступ все-таки ?


Тебе же в [6] уже сказали - через обращение к одноименному полю объекта класса, в котором это поле объявлено

MySuperPuperForm.c := 5;


 
Reindeer Moss Eater ©   (2007-04-04 11:39) [14]

а можна кодом :) ?

Экземпляр, точка, имя поля.


 
Сергей М. ©   (2007-04-04 11:39) [15]


> как получить доступ все-таки ?


Тебе же в [6] уже сказали - через обращение к одноименному полю объекта класса, в котором это поле объявлено

MySuperPuperForm.c := 5;


 
Gentos   (2007-04-04 11:42) [16]


> SergGG ©   (04.04.07 11:37) [12]

большое спасибо за потраченное время , все работает, тема закрыта.



Страницы: 1 вся ветка

Текущий архив: 2007.04.22;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.044 c
2-1175628268
МегаПупс
2007-04-03 23:24
2007.04.22
Загрузка случайного файла


2-1175763871
inoc
2007-04-05 13:04
2007.04.22
передача массива в процедуру


15-1175009740
antonn
2007-03-27 19:35
2007.04.22
Запуск программы от имени другого пользователя


15-1174682350
GanibalLector
2007-03-23 23:39
2007.04.22
Переходник USB - RS232 (COM)


15-1174698700
Fantasy
2007-03-24 04:11
2007.04.22
Хостинг