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;

---