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 存放分隔后各字符串的列表
