重载

名称相同而参数的数据类型和数量不同的过程或函数，称为重载

function getvalue(x:integer;s1:string):string;overload；
begin
  result:=inttostr(x)+s1;
end;

function getvalue(x,y:integer):integer;overload;
begin
  result:=x+y;
end

function getvalue(s1,s2:string):string;overload;
begin
  result:=s1+s2；
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s:=getvalue(I00,'分');       //调用getvalue((x:integer;sI:string):stringi函数
  s:=getvalue('I00','分');     //调用getvalue(sl,s2:string):string函数
  s:=inttostr(getvalue(60,4O); //调用getvalue(x,y:integer):integer函数
end;