取两个字符之间的字符！！ ( 积分: 50 )

str:='ABCDDDDCEFG';
用pos确定字符串的位置，用copy复制字符串
pos('A',str);
pos('G',str);
if G>=A then
showmessage(copy(str,A,G-A));
else
showmessage(copy(str,G,A-G));

这种很方便取两个不同字符之间的数！

但是，我现在要取Ｃ和Ｃ之间的数应该怎么办了？

function GetChars(AString: string; fChar, EChar: char): String;
var
i, tmpPos: Integer;
begin
Result := '';
tmpPos := Pos(fChar, AString);
if tmpPos = 0 then
exit;
for i := tmpPos + 1 to Lenght(AString) do
begin
if AString = EChar then
break;
Result := Result + AString;
end;
end;

谢谢，搞好了．．