18 lines
236 B
ObjectPascal
18 lines
236 B
ObjectPascal
unit UUnit1;
|
|
|
|
uses UUnit2, UUnit3;
|
|
|
|
{const
|
|
UConst = 'UUnit1.UConst';}
|
|
var
|
|
UVar: TStringList;
|
|
|
|
function main: string;
|
|
begin
|
|
//Result := UConst;
|
|
//Result := UUnit2.UConst;
|
|
Result := UUnit2.UFunction;
|
|
end;
|
|
|
|
end.
|