在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
有了一系列的 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; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论