Перенос переменной из одного 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-|

Спасибо

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

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