} } }

    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;

    无论对感情还是对生活,“只要甜不要苦”都是任性而孩子气的,因为我们也不完美,我们也会伤害人。正因为我们都不完美,也因为生活从不是事事如意,所以对这些“瑕疵”的收纳才让我们对生活、对他人的爱变得日益真实而具体。—— 汪冰《世界再亏欠你,也要敢于拥抱幸福》
    分享到: