ifthen如何使用?------------(一小时内结贴)

xiyixiaowm50 2004-12-03 11:11:33
写在程序里系统总提示没有定义,而这个东东本来就是系统的呀.
...全文
108 点赞 收藏 11
写回复
11 条回复
nyf1220 2004年12月06日
我已经查出了要用maths单元才可以用ifthen?!!!!!!!!!!!!!!!

楼主的这个帖子真搞笑哦,,
回复 点赞
xiyixiaowm50 2004年12月05日
不好意思,昨天晚上机器在发贴一小时内中毒了,今天重装的系统。我已经查出了要用maths单元才可以用ifthen,不过还是感谢各位。
回复 点赞
sxtdxvb 2004年12月05日
呵呵,你这也叫1小时结帖??
回复 点赞
sxtdxvb 2004年12月04日
^_^,被我逮住了!

看这个

代码:

var
a,b:integer;
begin
min:=ifthen(a<b,1,2);
end;

结果为1!
回复 点赞
ntn115 2004年12月04日
回复 点赞
richard_ouyang 2004年12月04日
USES MathStrUtils;
回复 点赞
dext 2004年12月04日
uses Math;

function IfThen(AValue: Boolean; const ATrue: Integer; const AFalse: Integer): Integer;
begin
if AValue then
Result := ATrue
else
Result := AFalse;
end;

function IfThen(AValue: Boolean; const ATrue: Int64; const AFalse: Int64): Int64;
begin
if AValue then
Result := ATrue
else
Result := AFalse;
end;

function IfThen(AValue: Boolean; const ATrue: Double; const AFalse: Double): Double;
begin
if AValue then
Result := ATrue
else
Result := AFalse;
end;
回复 点赞
ICMGDCHN 2004年12月04日
不好意思,不知道有IfThen这个函数

刚查了下,可能是你忘记USES MathStrUtils了吧
回复 点赞
fsybaby 2004年12月04日
USES MathStrUtils

这是个附加的库函数
回复 点赞
nyf1220 2004年12月03日
晕死哦,快到一个小时了,赶紧来蹭分!
查帮助
输入if,你就会看到一切了

也就是类似与楼上写的
回复 点赞
ICMGDCHN 2004年12月03日
ifthen?连起来写???刚从VB转过来的??

只有if (表达式) then
...

if (表达式) then
...
else if (表达式) then
...


if (表达式) then
...
else
...

三种

回复 点赞
发动态
发帖子
语言基础/算法/系统设计
创建于2007-08-02

3418

社区成员

3.3w+

社区内容

Delphi 语言基础/算法/系统设计
社区公告
暂无公告