Pos与AnsiPos区别在于,AnsiPos: This function supports multi-byte character sets (MBCS).出自在线帮助。
procedure TForm1.Button1Click(Sender: TObject); var s : String; i : Integer; begin s := 'I am supper man'; i := pos(Uppercase('Supper'),Uppercase(s)); showmessage(inttostr(i)); end;
好像没有发现这样的函数, 你可以自己写一个!function MyPos(const Substr, S: string): Integer; begin Result := Pos(UpperCase(SubStr), UpperCase(S)); //还需要注意一下,这样专换后字符全部都是大写,你可以想办法解决,或采用其他更好的方法。 end;
var
s : String;
i : Integer;
begin
s := 'I am supper man';
i := pos(Uppercase('Supper'),Uppercase(s));
showmessage(inttostr(i));
end;
你可以自己写一个!function MyPos(const Substr, S: string): Integer;
begin
Result := Pos(UpperCase(SubStr), UpperCase(S));
//还需要注意一下,这样专换后字符全部都是大写,你可以想办法解决,或采用其他更好的方法。
end;
有点不好意思. :)