//分割字符串 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;
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/archive/2011/11/06/2238181.html