Delphi TStringList 自带 split 用法

本文整理自网络，侵删。

 
procedure TForm1.Button4Click(Sender: TObject);
var

  split: TStringList;
begin
    split := TStringList.Create;
    split.Delimiter := '-';
    split.DelimitedText := '123-456-789';
    Caption:= split[0]+split[1]+split[2];
    split.free;
end;
 

相关阅读 >>

Delphi xe 提示没有定义decimalseparator等的解决方法

Delphi 中字符串比较函数对比

Delphi 提高进程自身权限

Delphi 从字符串提取字符串

Delphi twebbrowser：确定带有框架的页面何时完成

Delphi 合并两个 wav 文件流的函数

Delphi 网站后台扫描例子

Delphi webbrowser执行脚本

Delphi 关于datetimepicker的一点问题（同时修改日期和时间的实现）

Delphi 使用indy idftp 通过android 上传文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi TStringList 自带 split 用法