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 idhttp控件的防止异常的处理

Delphi 关闭自己,重新运行

Delphi 2009 之 tcategorypanelgroup[4]: height

Delphi结构体的方法

Delphi makeuniquefilename 创建文件名如果已经存在自动更改文件名

Delphi 7 中dbgrid的排序

Delphi 文本列数值排序从小到到

Delphi里面控制edit只能输入数字

Delphi adoquery的post和updatebatch

Delphi截图程序无窗口版

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

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