Указатели

← →
Progh (2005-01-08 07:19) [0]

Как создать указатель на тип из другого модуля ?

Например :
Unit1;
...
Form1 = class(TForm)
...
var
a: TButton;

Unit2;
Uses Unit1;
...
Как создать тут указатель на Form1.a из первого Unit-a?

← →
SergP © (2005-01-08 10:52) [1]

> Как создать тут указатель на Form1.a из первого Unit-a?

Зачем?

Чем тебе Form1.a не нравится?

← →
dmk © (2005-01-08 13:23) [2]

var
MyFormPtr: Pointer;

Примерно так. И без шуток.

← →
Anatoly Podgoretsky © (2005-01-08 13:49) [3]

Progh (08.01.05 07:19)
SergP © (08.01.05 10:52) [1]
a не является членом класса TForm1

> [3] Anatoly Podgoretsky © (08.01.05 13:49)
> Progh (08.01.05 07:19)
> SergP © (08.01.05 10:52) [1]
> a не является членом класса TForm1

Хм... Тогда
uses unit2;
и просто a

> a не является членом класса TForm1

Хм... Тогда
uses unit2;
и просто a

Т.е. var которые описаны во втором модуле будут видны и в первом.

Указатели Найти похожие ветки