首页 > OOP语言 > Delphi > 正文

Delphi中使用链式代码
2013-12-12 00:00:00   来源:www.bianceng.cn   评论:0 点击:

暂时无描述信息

有了一系列的 Helper, Delphi 也可以使用链式代码了.

//譬如要把 3.1415926 中的 141 提取为一个整数:var
  num: Integer;
begin
  num := Pi.ToString().Split(['.'])[1].Substring(0,3).ToInteger(); // 输入 . 后, 记得使用 Ctrl+Space 提示代码
  ShowMessage(num.ToString()); // 141end;

我是在写类似下面程序时开始使用的:

{程序要求从下面的文本中提取 A: B: ... 后面的文本到指定的变量:A: qwertyuiopB: wertyuiopaC: 

ertyuiopasqwertyuiopasdD: rtyuiopasd...}uses System.Character; // <-- 

IsInArrayconst
  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
  beginif (str.Length > 2) and str

[2].IsInArray([':']) thenbegin  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;

相关热词搜索:

上一篇:delphi的记录型文件类型
下一篇:Delphi ListView快速操作通用实现之实现篇

分享到: 收藏