func.pas

来自「delphi的学习资料」· PAS 代码 · 共 18 行

unit Func;

interface

function fff(x: smallInt): smallInt;


implementation

function fff(x: smallInt): smallInt;
begin
  // ......
  Result:=x*x;
end;


end.