本文整理自网络，侵删。
有了一系列的 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; // <-- IsInArray
const
FText = 'A: qwertyuiop'#13#10 +
'B: wertyuiopa'#13#10 +
'C: ertyuiopas'#13#10 +
'qwertyuiopasd'#13#10 +
'D: rtyuiopasd'#13#10;
procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
A, B, C, D: string;
str: string;
begin
List := TStringList.Create;
List.Text := FText;
for str in List do
begin
if (str.Length > 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 xe7开发的直接以管理员模式启动cmd命令行界面
Delphi 从 twebbrowser中获得当前输入处的链接
Delphi win7,win2008,win2003,winxp 屏蔽ctrl+alt+del
Delphi adoquery连接数据库的查询、插入、删除、修改
更多相关阅读请进入《Delphi》频道 >>
