func.pas

delphi的学习资料

unit Func;

interface

function fff(x: smallInt): smallInt;


implementation

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


end.