本文整理自网络，侵删。
//搜索内存偏移函数
//来源C++代码，翻译的
//Code By htrlq
//参数说明
//第一个参数：
//要搜索的内存地址
//第二个参数：
//搜索的字符串
//第三个参数：
//内存大小
//第四个参数：
//搜索的字符串长度
function MemFindStr(strMem,strSub:PChar;iSizeMem,isizeSub:LongWord):Integer;
var
da,i,j:Integer;
tmp,tmp2:Char;
begin
Result:=0;
if isizeSub = 0 then
da:=lstrlen(strSub)
else
da:=isizeSub-1;
for i:=0 to iSizeMem-1 do
begin
for j:=0 to da do
begin
tmp2:=strSub[j];
tmp:=strMem[i+j];
if tmp <> tmp2 then
Break;
if j = da then
begin
Result:=i;
Exit;
end;
end;
end;
end;
相关阅读 >>
Delphi使用project manager添加一个java库到你的应用程序
Delphi 简化版的inputquery 中文版输入对话框
Delphi 时间与相关类型(2) - tdate、ttime、ttimestamp
更多相关阅读请进入《Delphi》频道 >>
