SzTop98'职业博客

ifthen语句改进

SzTop98 — Thu, 24 Jul 2008 16:47:41 CST

function IfThen(AValue: Boolean; const ATrue: Integer; const AFalse: Integer = 0): Integer; overload;

function IfThen(AValue: Boolean; const ATrue: Int64; const AFalse: Int64 = 0): Int64; overload;

function IfThen(AValue: Boolean; const ATrue: Double; const AFalse: Double = 0.0): Double; overload;

在DELPHI中ifthen语句只适合以上三种数据类型的使用,我们可以加上更多的类型:

ifthen函数的改进拷出math.pas文件改名为 FunMath.pas

这里三个函数分别对应返回整型和实型数据。我们可以把这个文件拷贝出来，再添加上以下的代码：

function IfThen(AValue: Boolean; const ATrue: string; const AFalse: string=’’): string; overload;

function IfThen(AValue: Boolean; const ATrue: Boolean; const AFalse: Boolean=false): Boolean; overload;

这两个函数定义好后，添加函数实现编码：

l 返回布尔类型：

function IfThen(AValue: Boolean; const ATrue: Boolean; const AFalse: Boolean=false): Boolean; overload;

begin

if AValue then

Result := ATrue

else

Result := AFalse;

end;

l 返回字符串：

function IfThen(AValue: Boolean; const ATrue: string; const AFalse: string=’’): string; overload;

begin

if AValue then

Result := ATrue

else

Result := AFalse;

end;

添加完后，改名FunMath.pas保存。

iif语句

SzTop98 — Thu, 24 Jul 2008 16:43:43 CST

在C或C++有一个IIf语句,在DELPHI也有这样的语句,只是它放在math单元中.

找到uses SysUtils;改为: uses SysUtils, math;这里是调用math单元实现ifthen功能。

输入代码:

write('请输入你的分数:');

read(Score);

i:=ifthen(Score>=60,1,0);

write('i的值:',i);

Readln;

if语句的改进

SzTop98 — Thu, 24 Jul 2008 16:41:09 CST

write('请输入你的分数:');

read(Score);

if Score>=60 then

f:=true

else

f:=False;

write('f的值:',f);

Readln;

用if语句可以改变判断两种情况,其实用赋值语句也可以做成一样的效果:

write('请输入你的分数:');

read(Score);

f:=(Score>=60);

write('f的值:',f);

Readln;

对比上面的代码，我们把if语句改成了f:=(Score>=60);就是说把(Score>=60)的结果赋给f变量。

电脑维修|软件开发

SzTop98 — Tue, 08 Jul 2008 11:39:40 CST

服务项目:

1．专业上门维修、组装和升级电脑、安装系统、查毒杀毒、数据恢复。

2．共享上网、ADSL共享上网，安装各种软件。

3．综合布线组网、承接网络工程。公司网络组建、维护。

4．安装升级维护网吧无盘游戏系统,无盘教学系统公司无盘办公系统。

5．公司、家庭电脑维护保养包月，按月结算。

6．电脑整机、配件销售、代用户购买、送货上门。

7．迅速恢复硬盘误分区、格式化或误删除的文件。

8．软件开发:企业管理软件、酒楼管理软件、ERP、药店管理软件。

9．网页制作：企业网站、个人网站。

电话: 13410161655 84039316李生