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 closehandle的解释

Delphi xe8 无法进入android的调试状态

Delphi winapi: messagebeep - 播放一个系统声音

Delphi图片上写水印文字函数

Delphi 获取系统托盘程序列表

Delphi 取 utc/tfiletime 时间

Delphi shellexecute执行cmd命令窗口不关闭

Delphi timagelist 中使用 透明 png 图标

Delphi下程序内存泄露报告

Delphi webbrowser设置自己定义user-agent

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

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