今天看啥
热点:

Delphi 的链式代码,Delphi链式代码


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;

www.513bk.comtruehttp://www.513bk.com/Delphijc/1263174.htmlTechArticleDelphi 的链式代码,Delphi链式代码 Delphi 的链式代码 有了一系列的 Helper, Delphi 也可以使用链式代码了. -----------------------------------------------...

相关文章

相关搜索: 链式 代码

帮客评论

视觉看点