请问在delphi里怎么实现c中的'?:'表达式？给分(50分)

请问在delphi里怎么实现c中的'?:'表达式？给分

if then else 呗!

要在一个表达式中实现，因为程序中用到这个判断的地方很多，想要微控它，不然会产生非常冗长的代码

IfThen(AValue: Boolean
const ATrue: Integer
const AFalse: Integer = 0): Integer;
IfThen(AValue: Boolean
const ATrue: Int64
const AFalse: Int64 = 0): Int64;
IfThen(AValue: Boolean
const ATrue: Double
const AFalse: Double = 0.0): Double;
IfThen(AValue: Boolean
const ATrue: string
const AFalse: string = ''): string;

谢谢，，，，，哎，忽然发现这种东西完全可以自己来写的，是自己懒惰了 呵呵