过程,函数的重载与逻辑运算
来源:互联网 发布:windows 搭建http代理 编辑:程序博客网 时间:2024/05/21 03:58
过程,函数的重载与逻辑运算
如果你想以相同的名称同时声明多个子程序,那么就必须使用重载方法,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;
//声明各种不同类型的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;
- 过程,函数的重载与逻辑运算
- 重载函数的重载确定过程
- 函数的重载与重写
- 函数的重载与重写
- 函数与重载的学习
- 浅谈C++函数重载的解析过程
- 函数重载解析过程
- 函数重载与虚函数的区别
- 关于函数重载与函数的重定意
- 2.3函数与函数的重载
- 虚函数与重载函数的关系
- 函数的重载与构造函数
- 函数重载与函数模板的区别
- 重载函数与指向函数的指针
- JAVA的构造函数与函数重载
- 函数重载与虚函数的区别
- 函数重载与函数重写的区别
- 第七、Java的函数与函数重载
- VC++动态链接库(DLL)编程深入浅出
- addr函数指针的用法
- MySql函数学习(一)
- 多线程序列化DataTable引发异常的调试分析
- delphi一些不是很重要的技巧
- 过程,函数的重载与逻辑运算
- 剖析Delphi中的多态、继承,覆盖
- 关于netflow底层设计
- 弄懂计算机里的一些概念
- iphone开发资源汇总
- javaweb & android 对比理解图 系列 图一
- mysql持久连接,mysql_connect与mysql_pconnect
- struts2 nullpointer
- linux多用户管理(转载)