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


本文固定链接: http://www.ccsbbs.com.cn/archives/6421.html | 极限手指

该日志由 极限手指 于2013年04月11日发表在 Delphi 分类下, 你可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。
原创文章转载请注明: 分割字符串 ExtractStrings | 极限手指
【上一篇】
【下一篇】

分割字符串 ExtractStrings:等您坐沙发呢!

发表评论

您必须 [ 登录 ] 才能发表留言!