Скачать: CL | DM;

Перенос переменной из одного Unit в другой   Найти похожие ветки 

← →
greengeneral ©   (2006-09-16 22:05) [0]

Можно ли из
procedure TForm17.Button1Click(Sender: TObject);
var
a:integer
begin
a:=a+1;
end;

которая находится в Unit17 перенести переменную а в

procedure TForm4.Button2Click(Sender: TObject);
var
b:integer;
begin
b:=a;
end;

которая находится в Unit4

---

← →
Джо ©   (2006-09-16 22:07) [1]

Что значит "перенести переменную"?

---

← →
greengeneral ©   (2006-09-16 22:18) [2]

переменная а при изменении в unit4 изменя ло бы переменную а в unit17

---

← →
Джо ©   (2006-09-16 22:25) [3]

Один из вариантов, сделаю переменную A в общий юнит, который должен быть указан в uses модулей Unit1 и Unit17. Т.е, объявить переменную глобально, а не локально.

---

← →
Джо ©   (2006-09-16 22:26) [4]

Блин, совсем падежи и спряжения стал забывать, ужас, что со мной? 8-|

---

← →
greengeneral ©   (2006-09-16 22:53) [5]

Спасибо

---

← →
Джо ©   (2006-09-16 22:55) [6]

Переменную, естественно, нужно объявлять в секции interface.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c