分隔字符串函数

var

  stl:TStringList;

  i:integer;

begin

  stl :=TStringList.Create;

  stl.Delimeter :='|';

  stl.DelimetedText :='1|2|3|4|5|';

  for i:=0 to stl.Count-1 do

    mmo1.lines.add(stl[i]);

  stl.Free;

end;

Delphi中自带ExtractStrings实现字符分割，如将'1|2|3|4|'分割到TStringList中(1,2,3,4),可用ExtractStrings(['1'],['1'],'1|2|3|4',stl); ExtractStrings的原型为:

function ExtractStrings(Seperators,WhiteSpace:TSysCharSet;Content:PChar;strings:TStrings):Integer;

其中：

   Seperators 是分隔符集合，如[';']

   WhiteSpace 指前面可以忽略的字符集合，一般为空[]

   Content  待分隔的字符

   Strings  存放分隔后各字符串的列表