delphi三元运算示例

在java和c语言中有个条件运算符：表达式1？表达式2：表达式3，用这个可以很简单地进行判断。

StrUtils 单元和 Math 单元 分别有一个 IfThen 函数, 举例:

uses StrUtils, Math;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: Integer;
  str: string;
begin
  a := 1;
  str := StrUtils.IfThen(a > 0, 'aaa', 'bbb');
  ShowMessage(str); {aaa}

  a := -1;
  str := StrUtils.IfThen(a > 0, 'aaa', 'bbb');
  ShowMessage(str); {bbb}

  a := 1;
  str := StrUtils.IfThen(a > 0, 'aaa');
  ShowMessage(str); {aaa}

  a := -1;
  str := StrUtils.IfThen(a > 0, 'aaa');
  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;