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 generics collections tdictionary 用法

Delphi xe7写的一个http post的小测试程序

Delphi windows服务控制单元

Delphi 只用一条语句就能使tbitmap反色

怀念一下这些经常不记得的Delphi代码

Delphi 中 findwindow 和 findwindowex 的语法和用法

Delphi 无窗体无界面exe怎么做?

Delphi 删除文件的函数

Delphi : tstringlist的find,indexof和sort

Delphi流的操作

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



打赏

取消

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

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

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

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

评论

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