sample - global constants and variables (uunit1).pas

来自「最新版 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.