У меня вопрос такой:
При подключении модулей в Lazarus, переменные из программы не поступают в модуль. Такая же проблема при перекрестном подключении модулей. Ниже представлен простой пример, иллюстрирующий данную проблему
программа:
Код: Выделить всё
program Project1;
uses Unit1;
begin
X:=1;
Writeln('y=',y);
Readln;
end. модуль:
Код: Выделить всё
unit Unit1;
interface
var y, X: real;
implementation
begin
y:=X;
end. В примере необходимо переменной "y" присвоить значение переменной "X=1", при работе программы получаем "y=0", а должно быть "y=1". Каким образом можно решить данную проблему?
