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

[xiyixiaowm50]

写在程序里系统总提示没有定义,而这个东东本来就是系统的呀.

[ICMGDCHN]

ifthen?连起来写???刚从VB转过来的??

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

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

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

三种

[nyf1220]

晕死哦，快到一个小时了，赶紧来蹭分！
查帮助
输入if，你就会看到一切了

也就是类似与楼上写的

[fsybaby]

USES MathStrUtils

这是个附加的库函数

[ICMGDCHN]

不好意思,不知道有IfThen这个函数

刚查了下,可能是你忘记USES MathStrUtils了吧

[dext]

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;

[richard_ouyang]

USES MathStrUtils;

[ntn115]

顶

[sxtdxvb]

^_^，被我逮住了！

看这个

代码：

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

结果为1！

[sxtdxvb]

呵呵，你这也叫1小时结帖？？

[xiyixiaowm50]

不好意思，昨天晚上机器在发贴一小时内中毒了，今天重装的系统。我已经查出了要用maths单元才可以用ifthen,不过还是感谢各位。

[nyf1220]

我已经查出了要用maths单元才可以用ifthen?!!!!!!!!!!!!!!!

楼主的这个帖子真搞笑哦，，