//分割字符串 ExtractStrings

var

  s: String;

  List: TStringList;

begin

  s := 'about: #delphi; #pascal, programming';

  List := TStringList.Create;

  ExtractStrings([';',',',':'],['#',' '],PChar(s),List);

  //第一个参数是分隔符; 第二个参数是开头被忽略的字符

  ShowMessage(List.Text);  //about

                           //delphi

                           //pascal

                           //programming

  List.Free;

end;

最新文章

1. 【转】WPF: 自动设置Owner的ShowDialog 适用于MVVM
2. 1117Mysql prepare预处理语句
3. java线程详解
4. 【HDU 5387】Clock
5. .html和.htm的区别
6. android linux
7. 1.html5 学习要求，Html 5发展历程
8. mysql SQLyog导入导出csv文件
9. 重温《js权威指南》 第4、5、6章
10. hive metastore异常 org.apache.thrift.protocol.TProtocolException: Missing version in readMessageBegin, old client
11. wx.Frame
12. eclipse中输入的中文为繁体的问题
13. 【原】浅谈Firefox下的js、css、图片阻塞现象（一）
14. ExtJS 4.2学习（一）——环境搭建
15. python进程池剖析（一）
16. android 模拟器对应键盘快捷键
17. 『线段树 Segment Tree』
18. web server性能优化浅谈
19. shell if判断写成一行
20. Mac 端配置 Lua 环境

热门文章

1. 深入浅出 Java Concurrency (8): 加锁的原理 (Lock.lock)
2. MongoDB + Spark: 完整的大数据解决方案
3. 如何卸载windows的服务？卸载服务？
4. Python 小知识点（8）-- __new__
5. Python if判断语句
6. Linux配置Oracle 11g自动启动
7. 最近学习的sql查询语句连接查询，标记一下
8. 你不知道的高性能Javascript
9. iOS倒计时
10. Android APK反编译就这么简单 详解