2AVL
основная прога
uses
MyUnit;
var
VarWithTypeFromUnit : TypeFromUnit;
begin
VarWithTypeFromUnit:=10;
VarFromUnit:=VarFromUnit+'bla-bla';
end.
модуль
unit MyUnit;
interface
type
TypeFromUnit : integer;
var
VarFromUnit : string;
procedure ScUnitInit;
implementation
uses
MyScUnit; // ответ на второй вопрос в посте 19
procedure ScUnitInit;
begin
VarFromUnit:=ScUnitFunc;
end;
end.
второй модуль
unit MyScUnit;
interface
function ScUnitFunc : string;
implementation
function ScUnitFunc : string;
begin
ScUnitFunc:='bla-bla ';
end;
end.
2kizup
вроде бы в мп2 рекурсия модулей не реализованна, по крайней мере она там не работает. Насчет 3 версии не знаю, не проверял, но в хелпе ничего нового не замечал об этом.