function TForm1.ReversePos(SubStr, S: String): Integer;
var
i : Integer;
begin
i := Pos(ReverseString(SubStr), ReverseString(S));
if i>0 then
i := Length(S)- i- Length(SubStr)+2;
Result := i;
end;
自己手工整理一下。
function TForm1.ReversePos(SubStr, S: String): Integer;
var
i : Integer;
begin
i := Pos(ReverseString(SubStr), ReverseString(S));
if i>0 then
i := Length(S)- i- Length(SubStr)+2;
Result := i;
end;
自己手工整理一下。