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 format 另类用法

Delphi 实现窗体随着鼠标移动

Delphi shellexecute最简单的结束进程代码

Delphi写qq消息群发（模拟按键精灵）

Delphi application.title在win7下失效了？

Delphi 根据ip获取局域网mac

Delphi xe7中使用json

Delphi xe listview导出excel

Delphi使用xmlhttp组件代码

Delphi idhttp post json

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

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