zoukankan      html  css  js  c++  java
  • Delphi 的链式代码


    有了一系列的 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;
    

  • 相关阅读:
    express 连接 moogdb 数据库
    数组 去重
    vue 路由meta 设置title 导航隐藏
    :src 三目运算
    axios baseURL
    js对象修改 键
    Swiper隐藏后在显示滑动问题
    字符串中的替换
    获取服务器时间
    vue a链接 添加参数
  • 原文地址:https://www.cnblogs.com/del/p/3145259.html
Copyright © 2011-2022 走看看