Delphi 的链式代码

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

//譬如要把 3.1415926 中的 141 提取为一个整数:var  num: Integer;begin  num := Pi.ToString().Split(['.'])[1].Substring(0,3).ToInteger(); // 输入 . 后, 记得使用 Ctrl+Space 提示代码  ShowMessage(num.ToString()); // 141end;

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

{程序要求从下面的文本中提取 A: B: ... 后面的文本到指定的变量:A: qwertyuiopB: wertyuiopaC: ertyuiopasqwertyuiopasdD: 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;