Delphi 的链式代码
添加时间:2013-6-20 点击量:
有了一系列的 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;
无论对感情还是对生活,“只要甜不要苦”都是任性而孩子气的,因为我们也不完美,我们也会伤害人。正因为我们都不完美,也因为生活从不是事事如意,所以对这些“瑕疵”的收纳才让我们对生活、对他人的爱变得日益真实而具体。—— 汪冰《世界再亏欠你,也要敢于拥抱幸福》
有了一系列的 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;
无论对感情还是对生活,“只要甜不要苦”都是任性而孩子气的,因为我们也不完美,我们也会伤害人。正因为我们都不完美,也因为生活从不是事事如意,所以对这些“瑕疵”的收纳才让我们对生活、对他人的爱变得日益真实而具体。—— 汪冰《世界再亏欠你,也要敢于拥抱幸福》