Delphi 的链式代码

有了一系列的 Helper, Delphi 也可以使用链式代码了.

//譬如要把 3.1415926 中的 141 提取为一个整数:

var

  num: Integer;

begin

  num := Pi.ToString().Split(['.'])[1].Substring(0,3).ToInteger(); // 输入 . 后, 记得使用 Ctrl+Space 提示代码

  ShowMessage(num.ToString()); // 141

end;

我是在写类似下面程序时开始使用的:

{程序要求从下面的文本中提取 A: B: ... 后面的文本到指定的变量:

A: qwertyuiop

B: wertyuiopa

C: ertyuiopas

qwertyuiopasd

D: rtyuiopasd

...

}

uses System.Character; //  2) and str[2].IsInArray([':']) then

    begin

      case str[1] of

        'A': A := str.Substring(2).Trim; // 这里用上了链式代码

        'B': B := str.Substring(2).Trim;

        'C': C := str.Substring(2).Trim;

        'D': D := str.Substring(2).Trim;

      end;

    end;

  end;

  List.Free;

  ShowMessageFmt('%s; %s; %s; %s', [A, B, C, D]);

end;

巴特西

Delphi 的链式代码

最新文章

热门文章