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 spcomm的一些用法注意

Delphi 调出windows 系统时间设置对话框

Delphi word文档内容批量替换

Delphi 编写的一个感染文件夹的小病毒

Delphi编程实现sql server挂起清除

Delphi的窗体文件（dfm）文件中的汉字提取出来？

d10环境下调用hidcontroller1.0.35获取数据乱码问题

Delphi idftp发送本机ip和外网ip

Delphi 如何获取窗口的图标

Delphi base64, quoted-printable 的解码与编码函数

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

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