Delphi内的字符串分隔

 如果需要在Delphi内对某一字符串进行分隔（字符串有固定的分隔标记），一般情况下好像都是自己写一个函数来实现。其实在Delphi内有一个写好的函数，只是不在常用的单元内。它在xmlutil单元内，名称是Split0。

    这是原形，第一个参数是待分隔的字符串，第二个是分隔标记，返回值是StringList。

需要注意的是，在调用此函数后，你得去释放它生成的StringList，否则可以会造成内存泄漏。

例：

procedure SetASResult(Value: String);
var slTemp1:TStringList;
begin
  MyASResult.Clear;
  slTemp1:=Split0(Value,'|');
  FASResult.AddStrings(slTemp1);
  FreeAndNil(slTemp1);//<---------slTemp1不需要你自己创建Create，但用完后需要你来FreeAndNil。
end;

转载于:https://www.cnblogs.com/martian6125/archive/2007/07/12/9631494.html