如何将过程、函数重载与逻辑运算融合为一个长尾？

本文共计448个文字，预计阅读时间需要2分钟。

过程，函数的重载与逻辑运算如果想要以相同名称声明多个子程序，同时明确多个子程序的参数类型或数量，那么就必须使用重载方法。这种编译时引用关键字是overload，而这些子程序的参数必须不同！// 声明不同类型的变量

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

如果你想以相同的名称同时声明多个子程序，那么就必须使用重载方法，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;