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 adoquery1 update更新数据

为什么编程是独一无二的职业

Delphi encddecd 加密解密

Delphi idhttp 获取链接连通状态

Delphi读取一个access数据库中的表名

Delphi tdatetime 日期时间值的比较

Delphi 内存分配 stralloc

Delphi 掌控pagecontrol中的右上方的左右箭头事件

Delphi 改变位图图片大小

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

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