Delphi新语法和ifthen的扩展联想.

看看Delphi重载了多少个ifthen函数.
Math单元
function IfThen(AValue: Boolean; const ATrue: Integer; const AFalse: Integer = 0): Integer; overload; inline;
function IfThen(AValue: Boolean; const ATrue: Int64; const AFalse: Int64 = 0): Int64; overload; inline;
function IfThen(AValue: Boolean; const ATrue: UInt64; const AFalse: UInt64 = 0): UInt64; overload; inline;
function IfThen(AValue: Boolean; const ATrue: Single; const AFalse: Single = 0.0): Single; overload; inline;
function IfThen(AValue: Boolean; const ATrue: Double; const AFalse: Double = 0.0): Double; overload; inline;
function IfThen(AValue: Boolean; const ATrue: Extended; const AFalse: Extended = 0.0): Extended; overload; inline;

StrUtils单元
function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ”): string; overload; inline;

Delphi从2009之后增加了泛型,那么之前math,strutils单元的ifthen函数有很多种重载形式似乎就可以合并成一个单独的泛型函数了.

type
  TExtFuns = class
    class function IfThen<T>(AValue: Boolean; const ATrue, AFalse: T): T; inline;
  end;

class function TExtFuns.IfThen<T>(AValue: Boolean; const ATrue, AFalse: T): T;
begin
  if AValue then
    Result := ATrue
  else
    Result := AFalse;
end;
使用
var
  s : string;
  i : Integer;
  //
  s := TExtFuns.IfThen(True, '条件成立', '条件不成立!');
  i := TExtFuns.IfThen(GetTickCount > 1, 1, 2);

还有更便捷的办法,从XE3以后扩展了新的Helper语法,可以给任意类型增加扩展函数.就有更方便的技巧了.

  TBoolHelper = record helper for Boolean
    function IfThen<T>(const ATrue, AFalse: T): T; inline;
  end;
function TBoolHelper.IfThen<T>(const ATrue, AFalse: T): T;
begin
  if self then
    Result := ATrue
  else
    Result := AFalse;
end;
//使用
var
  s : string;
  i : Integer;
//
  s := True.IfThen('a','b');
  i := (gettickcount >1).IfThen(1, 2);
//是不是很爽,方便程度不亚于C语言族系的?:语法吧.
end;

XE3之后的SysUtils单元里面内置了TBooleanHelper,TByteBoolHelper,TWordBoolHelper,TLongBoolHelper四个布尔类型的Helper,那么如果易博龙肯把ifthen集成到这四个辅助类上我们用起来就会更方便.

此条目发表在Delphi, 未分类分类目录。将固定链接加入收藏夹。

Delphi新语法和ifthen的扩展联想.》有 40 条评论

  1. tintinsoft说:

    我七月给EMB提了建议,让他们提供完整的数据类型helper,包括 TDateTimeHelper,TVariantHelper,还有你的TArrayHelper,还有枚举值类型的helper,他们真的要做的话,估计编码+严格测试不到一周就完成!只可惜,,XE5没集成。。。。。

  2. dbyoung说:

    我已经在这么用了,代码看起来很简洁,很爽。

  3. Pingback引用通告: 43ytr.icu/j/GPoAr

  4. Pingback引用通告: Èãðà ïðåñòîëîâ 8 ñåçîí 2 ñåðèÿ 3 ñåðèÿ

  5. Pingback引用通告: abisko.ru

  6. Pingback引用通告: glyxar.ru

  7. Pingback引用通告: 2021

  8. Pingback引用通告: Èãðà ïðåñòîëîâ 8 ñåçîí âñå ñåðèè

  9. Pingback引用通告: Èãðà Ïðåñòîëîâ 8 ñåçîí 5 ñåðèÿ

  10. Pingback引用通告: 2020-2020-2020

  11. Pingback引用通告: Mstiteli: Final (2019)

  12. Pingback引用通告: ðîêåòìåí ïîëíûé ôèëüì

  13. Pingback引用通告: wwin-tv.com

  14. Pingback引用通告: empire-season-2-episode-3-putlocker

  15. Pingback引用通告: Video

  16. Pingback引用通告: 00-tv.com

  17. Pingback引用通告: 4serial.com

  18. Pingback引用通告: we-b-tv.com

  19. Pingback引用通告: kino-m.com

  20. Pingback引用通告: m-dnc.com

  21. Pingback引用通告: ðûáàëêà

  22. Pingback引用通告: hs;br

  23. Pingback引用通告: tureckie_serialy_na_russkom_jazyke

  24. Pingback引用通告: tureckie_serialy

  25. Pingback引用通告: serialy

  26. Pingback引用通告: +1+

  27. Pingback引用通告: æóêè+2+ñåðèÿ

  28. Pingback引用通告: Ñìîòðåòü âñå ñåðèè ïîäðÿä

  29. Pingback引用通告: watch

  30. Pingback引用通告: âûòîïêà âîñêà

  31. Pingback引用通告: ++++++

  32. Pingback引用通告: HD-720

  33. Pingback引用通告: guardians+of+the+galaxy+2

  34. Pingback引用通告: strong woman do bong soon

  35. Pingback引用通告: my id is gangnam beauty

  36. Pingback引用通告: guardians of the galaxy vol 2

  37. Pingback引用通告: 2020

  38. Pingback引用通告: kpop+star+season+6+ep+9

  39. Pingback引用通告: 1 2 3 4 5 6 7 8 9 10

dbyoung进行回复 取消回复

电子邮件地址不会被公开。

您可以使用这些HTML标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

你必须启用JavaScript