Delphi的泛型学习

delphicode的博客

http://www.cnblogs.com/delphicode/archive/2009/12/09/1620527.html#1721139

中写道:

 

Delphi IIF

 

 1  function  IIF < T > (Condition: Boolean; TrueValue: T;  FalseValue: T): T;
 2 
 3  begin   
 4 
 5     if  Condition  then     
 6 
 7      result : =  TrueValue  
 8 
 9     else     
10 
11      result : =  FalseValue;
12 
13  end ;
14 

 

 

注:Delphi 2009\2010 支持泛型，其它版本不支持。

 

真的很方便!不过好像不能直接这样定义函数,只能定义在class/record/interface中,我写了个测试,可以这样来使用:

 

代码

 1  type
 2 
 3  // Delphi IIF
 4     // 注:Delphi  2009 \ 2010  支持泛型，其它版本不支持。
 5    DelphiIIF = class
 6     public
 7       class   function  IIF < T > (Condition: Boolean; TrueValue: T;  FalseValue: T): T;
 8     end ;
 9 
10 
11 
12  implementation
13 
14 
15 
16  class   function  DelphiIIF.IIF < T > (Condition: Boolean; TrueValue: T;  FalseValue: T): T;
17  begin
18     if  Condition  then
19      result : =  TrueValue
20     else
21      result : =  FalseValue;
22  end ;
23 
24 

 

 

然后就可以这样来调用了:

 

ShowMessage(DelphiIIF.IIF(True, ' OK ' , ' ERROR ' ));
ShowMessage(IntToStr(DelphiIIF.IIF(True, 1 , 2 )));

 

 

对泛型研究不多,还请delphicode指正  :-)