Delphi下的字符串分隔函数的一种用法（摘抄）

下面的内容摘抄自盒子（http://bbs.2ccc.com/topic.asp?topicid=463028）中武稀松答 ivvn (奔腾的心)的问题。

如果你用XE3以上版本的Delphi,可以用下面的方式来分隔两个标签中的字符串。QString同时提供了一个类似的函数叫做StrBetweenW，但不同的是只取首个标签内的内容。

var
  var_sText1: string;
  var_psamArr: TArray<String>;
  I: Integer;
begin
  var_sText1 := '<tr>1</tr><tr>2</tr><tr>3</tr>';

   var_psamArr := var_sText1.Split(['<tr>','</tr>'], TStringSplitOptions.ExcludeEmpty);
   for I := Low(var_psamArr) to High(var_psamArr) do
   begin
     SaveOrderLog(Format('check_3_%d.txt', [I]), var_psamArr[I]);
   end;
end;