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获取flash文件的影片时长,原始尺寸,帧数等信息

Delphixe 如何调用stringtojstring

Delphi 悬浮窗口 浮动窗口 迅雷下载浮动窗口的实现

Delphi 弹出输入框的inputquery, inputquery 函数用法

Delphi xe10 android安卓 移动端 messagedlg 用法

Delphi 获取硬盘序列号(ide,sata,scsi)

Delphi tstringlist indexof find 查找字符串

Delphi 实现对xml文件的读写操作

Delphi urunpe

Delphi在combobox下拉框里显示图片

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

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