本文整理自网络，侵删。
如果你用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;
相关阅读 >>
Delphi superobject json操作类的基本用法
Delphi 从paintbox拷贝一部分内容到tbitmap
更多相关阅读请进入《Delphi》频道 >>
