如何判断一个字符串在另一个字符串的最后一个位置

[hanlen]

如：
'_'在'a_b_c'中的最后一个位置是4。

[johnzcq]

const str = 'a_b_c' ;
var i , result : integer ;

begin

result := -1 ;

for i := ( length( str ) - 1 ) downto 0 do
if ( str[i] = '_' ) then
begin
result := i + 1 ;
showmessage( inttostr(result) ) ;
break ;
end ;

showmessage( 'str 中不包含 _')；

end ;

[johnzcq]

// result := -1 ;

[johnzcq]

break ;
改 Exit;

[kelei0017]

const
str1 = 'a_b_c';
var
temp: String;
no: integer;
begin
temp := 'a_b_c_';
no := Pos(str1, temp);
if no = 0 then
begin
showmessage('a_b_c都没有，不用找了');
exit;
end;
temp := Copy(temp, no + Length(str1), Legth(temp));
if Pos('_', temp) <> 0 then
showmessage('在后面')
else
showmessage('不在后面');
end;

没编译过，先把'a_b_c'后面串找出来，再找'_'

[aniude]

var Str:String;
j:integer;
For j:=Length(Str) DownTo 1 Do Begin
If(Str[j]='_') Then Begin
ShowMessage(IntToStr(j));
Exit;
End;
End;