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 xe5 android 黑屏的临时解决办法

Delphi wininet带进度下载http文件

Delphi 对汉字字符串的截取问题

Delphi 构建时间 -encodedatetime … tryencodedatetime

Delphi dbgrideh 的分组统计 datagrouping

Delphi 建立快捷方式的函数: createshortcut

Delphi webbrowser1 保存文档为 .mht

Delphi 简单方法搜索定位treeview项

Delphi 检测url地址是否有效

Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"

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

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