delphi 搜索内存偏移函数


//搜索内存偏移函数
//来源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;



联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678