Delphi 分割字符串 ExtractStrings

本文整理自网络，侵删。

 
//分割字符串 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;
 

相关阅读 >>

Delphi app检测智能手机震动

Delphi yearof 根据指定的日期返回年

Delphi中转向语句break，continue，exit的作用

Delphi firemonkey 图片显示拉伸不变形

Delphi 的tstringbuilder防止服务器内存碎片化

Delphi将excel导入access

Delphi getdir 获取指定驱动器的当前路径名

Delphi调试技巧

Delphi 新版内存表 fdmemtable

Delphi xe更改ttrayicon系统任务栏图标（无模糊）

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

转载请注明出处：木庄网络博客 » Delphi 分割字符串 ExtractStrings