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