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 if语法,弹出提示框,不等于写法,判断是否为空

Delphi tzipfile 用法

Delphi 快捷键设置控件: thotkey

Delphi 内存流方式获取页面验证码图片

Delphi 读文件到十六进制的函数(Delphi 7 下可用)

Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar

Delphi显示圆形头像circle image

Delphi 读写附加数据

Delphi 变量和常量

Delphi strtoint 将“字符型”转换成“整数型”

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

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