delphi 代替pos的函数


本文整理自网络,侵删。

 function MyPos(const SubStr,S:string): integer;
var
I:integer;
begin
Result:=0;
for I:=1 to Length(S)-Length(SubStr)+1 do
if CompareMem(@S[I], @SubStr[1],Length(SubStr)) then
Result:=Result+ 1;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if MyPos('E',Edit1.Text)>0 then
begin
showmessage('存在');
end;

end;

相关阅读 >>

Delphi 流分割与合并文件的函数

Delphi 遍历系统窗口标题可用于反外挂反破解

Delphi 判断当前网络连接方式

Delphi 拷贝edit编辑框中的内容

Delphi setlength 内存释放总结

Delphi 获取当前系统语言环境(en,fr,ja等)

Delphi xe 7 mediaplayer 在安卓里放不出声音

Delphi中实现磁盘信息类(tdriveinfo)

Delphi fdmemtable1 清空

Delphi 常见的各种形式的组件的安装方法介绍

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...