各位先進您好： 在C＃中有一種可以取代if..else的簡寫語法，例如： status?"正常":"異常" 相當於 var A:string; if status then A:='正常' else A:='異常'; 可是在Delphi這樣寫，似乎太繁雜了，有沒有可以像C#這樣簡潔的語法呢？ 發表人 - aAlan 於 2004/08/04 23:39:55

aAlan 你好

這個問題的解通常是自定一個Function來使用,    Function IIF(Value:Boolean; ValueTrue, ValueFalse : Variant):Variant;
Begin
  If Value Then 
    Result := ValueTrue
  Else
    Result := ValueFalse;
End;    在使用時則可以如下方式呼叫    Msg:= '系統運作:' IIF(Status,'正常','異常');

_______________________________________ 深藍的魚，祝您好運..........連連

亦可以利用StrUtils或Math units裡現有的IfThen function來處理... uses StrUtils, Math; 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; function IfThen(AValue: Boolean; const ATrue: string; const AFalse: string = ''): string; overload;

使用 x:=IfThen(expr,val1,val2); 並不完全對應為   if expr then x := val1 else x := val2; 千萬要小心副作用, ifThen在Delphi中是以函式的方式 呼叫, 因此會先計算出val1及val2的值再帶入IfThen() 函式中。所以如果val1或val2是另一個函式, 它的副作 用可能是:

• 若該函式分別改變某全域變數, 那麼不論是true或false都一定會改變, 而 C 的 x = expr ? i＋＋: j＋＋; 只會執行 i＋＋ 或 j＋＋ 其中之一。
• 若該兩函式分別要花n1、n2的計算時間, 那麼你共要等n1＋n2的時間, 而不是n1或n2的時間

所以使用ifthen()時最好是帶入常數值或單純變數, 其實 真該建議borland將之廢除, 要不然就是真如同C語言般的 實作, 而不是用函數呼叫的方式, 否則會讓人誤入歧途而 不自覺。