delphi里怎样在三个字符串之间取到数据

Question

delphi里有字符串1，字符串2，字符串3
字符串1包括字符串2和字符串3
怎样取到字符串2和字符串3之间的字符串

Answer 1

str1='abcdef';
str2='ab';
str3=ef;
i1:= pos(str2,str1);
i2:= pos(str3,str1);
result := copy(str1,i1+length(str2)-1,length(str1)-length(str2)-length(str3));//result='cd'

Answer 2

如果str1='12abcdef';这样结果就不对了
应该改下
result := copy(str1,i1+length(str2)-1,i2-i1-length(str1));//result='cd'

Answer 3

LZ没有讲清楚，符串1, 符串2，字符串3出现的顺序，次数,有没有重复等,会有情况多种的
随便举一个例吧，比如：
符串1='aaabbbcccbbdfert'
符串2='aa'
符串3='bb'该怎么取?

Answer 4

呵呵~这样的话只能用split自己写逻辑判断了