delphi PosAnsi

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi在桌面上显示文字代码

Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法

Delphi of 打坐与普通攻击calll调用

Delphi关于延迟时间的一点智慧

Delphi hash md5

Delphi 如何将颜色值转换为html格式？

Delphi enablecontrols,disablecontrols函数

Delphi异常重启自身

Delphi treeview �c 自动展开树形结构

Delphi paramstr的用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi PosAnsi