过程,函数的重载与逻辑运算

过程,函数的重载与逻辑运算

如果你想以相同的名称同时声明多个子程序，那么就必须使用重载方法，overload这编译指引关键字，而且这些子程序的参数必须不同！
//声明各种不同类型的myadd子程序
function myadd(x,y:integer):string;overload;
function myadd(x,y:real):string;overload;
function myadd(x,y,x:string):string;overload;
procedure myadd(x,y:string);overload;
implementation
{$R *.dfm}
//返加两个整数相加的结果
function myadd(x,y:integer):string;overload;
begin
result:=intostr(x+y);
end;
//返回两个实数相加的结果
function myadd(x,y:real):string;overload;
begin
result:=floattostr(x+y);
end;
//返回3个字符串相加的结果
function myadd(x,y,z:string):string;overload;
begin
result:=x+y+z;
end;
//显示2个字符串相加的结果
procedure myadd(x,y:string):overload;
begin
showmessage(x+y);
end;
//事件驱动调用开始
procedure Tform1.buttononclick(sender:Tobject);
begin
//调用整数的函数
showmessage(myadd(10,20)); //30
//调用实数的函数
showmessage(myadd(10.1,20.2)); //30.3
//调用字符串的函数
showmessage(myadd('10','20','30')); //102030
//调用字条款串的过程
myadd('10','20'); //在过程中显示1020
and逻辑运算符
var
a,b:byte;
begin
//先声明变量a,b为byte类型，因为数据类型不同会有不同的结果
//显示结果为1
shl逻辑运算符
var
a,b:byte;
begin
a:=5;
//将a的内容值左移3位，a=00000101左移3位后，内容为
//00101xxx，其中的xxx系统会将其补0
b:=3;
//显示结果为40；
showmessage(inttostr(a shl b));
end;