RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

delphi PosAnsi

作者:admin 来源: 日期:2018/2/6 10:46:38 人气: 标签:

function PosAnsi(const Substr, S: AnsiString): Integer;
var
  P: PAnsiChar;
begin
  Result := 0;
  P := AnsiStrPos(PAnsiChar(S), PAnsiChar(SubStr));
  if P <> nil then
    Result := Integer(P) - Integer(PAnsiChar(S)) + 1;
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料