sample - global constants and variables (uunit1).pas

来自「Jedi Code Library JCL JVCL 组件包 JCL+JVCL超」· PAS 代码 · 共 18 行

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.