Как сделатьт указатель на переменную?

← →
Art1 (2002-05-17 15:31) [0]

У меня в первой форме есть переменная типа longint. Из под первой формы вызывается вторая форма. Кака мне передать указатель на переменную из первой формы и как во второй форме привоить значение этой переменной?

← →
Игорь Шевченко © (2002-05-17 15:34) [1]

Книгу почитать :-) Любую, по Delphi

← →
AFROLOV © (2002-05-17 15:41) [2]

Unit1; //Здесь лежит форма1; uses unit2..; .... var i:integer; pInt:TpInt; begin pInt:=@i; Form2.MyFunc(pInt); .... end; unit2 //Здесь лежит описание типа. Type TpInt= ^integer; ..... unit3; //Здесь лежит форма2; uses unit2...; procedure TMainForm.AddPaternBtnClick(pInt:TpInt); begin pInt^=5;//Присваиваем значение. end;

← →
Art1 (2002-05-17 15:56) [3]

Спасиба - сам вспомнил, хотя создавать тип указателя на стандартный паскалевский (дельфовский) тип небыло необходимости.
Но все равно, спасибо, что ответили.

Как сделатьт указатель на переменную? Найти похожие ветки