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-adoquery查询、插入、删除、修改

Delphi 检测服务器地址是否有效

Delphi “invalid floating point operation.”错误的解决方法

paramstr返回运行当行程序的某个参数

Delphi 从记事本导入记录

Delphi2010中字符串汇编需要注意的一点,以及支持2010的aes加密库

Delphi wmi 取硬件信息

Delphi postmessage 虚拟按键

dbgrid的cellclick事件,单击当前行记录的那一行时,不发生

Delphi 计算文件与当前时间差(天小时分钟秒)

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



打赏

取消

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

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

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

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

评论

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