delphi三元運算示例

在java和c語言中有個條件運算符：表達式1？表達式2：表達式3，用這個可以很簡單地進行判斷。 StrUtils 單元和 Math 單元 分別有一個 IfThen 函數, 舉例:

uses StrUtils, Math;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: Integer;
  str: string;
begin
  a := ;
  str := StrUtils.IfThen(a > , , );
  ShowMessage(str); 

  a := -;
  str := StrUtils.IfThen(a > , , );
  ShowMessage(str); 

  a := ;
  str := StrUtils.IfThen(a > , );
  ShowMessage(str); 

  a := -;
  str := StrUtils.IfThen(a > , );
  ShowMessage(str); 
end;

procedure TForm1.Button1Click(Sender: TObject); 
var 
    str: string; 
begin 
    str:= '任意值'; 
    str:= StrUtils.IfThen(str<>'','對的情況','錯的情況'); 
    ShowMessage(str); 

    str:= ''; 
    str:= StrUtils.IfThen(str<>'','對的情況','錯的情況'); 
    ShowMessage(str); 
end;