RSS订阅 | 匿名投稿
您的位置:网站首页 > 内存 > 正文

delphi 搜索内存偏移函数

作者:admin 来源: 日期:2011/8/18 13:24:40 人气: 标签:

 

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



读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: