Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

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

Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c