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程序将自身可执行文件拷贝到u盘的代码

Delphi 在减少占用资源的情况下，等待msecs毫秒

Delphi 删除cookies及上网记录

Delphi 字符串截取

Delphi连接access提示密码无效解决一例

Delphi 自我复制源码

Delphi获取外部程序菜单并模拟点击菜单

Delphi 创建win桌面快捷方式，实现360桌面图标数字提示 或 类似安卓的右上角的数字提示

Delphi base32 的加密和解密

Delphi encddecd 加密解密

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

转载请注明出处：木庄网络博客 » delphi 代替pos的函数