Delphi 函数的重载和作用域

1.在delphi 中，我们可以使用相同的函数名来调用不同的函数，我们称这个函数为重载，函数的参数类型和参数的个数可以不同，用到的关键字overload；格式如下：

function addInt(x,y:integer):string;overload;
begin
  result := intToStr(x + y);
end;
 
function addInt(x,y,z:integer):string;overload;
begin
  result := intToStr(x + y + z);
end;
 
function addInt(x,y:integer;z:string):string;overload;
begin
  result := intToStr(x + y + strToInt(z));
end;

注意点:每个函数后面都需要加上：overload;

2.函数的作用域(局部和全局函数):

在单位文件下声明的函数只能应用于本单元，可以通过其他单元引用来使用函数；但是必须在被引用单位的接口部分声明函数，否则还是无法找到

如：

Unit1.pas文件

unit Unit1;
 
interface
 
uses
  windows, Messages, SysUtils;
 
uses 
  unit2;  //可以和上面的uses一起连写
 
implementation
 
procedure TForm1.Button1Click(Sender : TOBJect);
begin
  showmessage(addint(1,2,3));
end;
 
end.

Unit2.pas文件：

unit Unit2;
interface
 
uses
  windows, Messages, SysUtils;
 
function addint(x,y,z:Integer):string;  //必须在这里声明函数，才能被其他单位去引用
 
implementation
 
function addInt(x,y,z : integer):string;
begin
  Result := intToStr(x+y+z);
end;
 
end.