Delphi a scanline memory to find the function of the sub-graph, do not know if there is a problem.

Tag:delphi   scanline    Memory     Sub-figure    

Function tform1.findimg (Pbmpmain,pbmpsub: tbitmap)  :boolean;varpmain,psub,ptmp: pbytearray ;x,y,z:integer;b: boolean;begin    result:=false;    b:=false;     for y:=0 to pBmpMain.Height-pBmpSub.Height do     begin    pmain := pbmpmain.scanline[y];    psub : = pbmpsub.scanline[0];        for x:=0 to  pbmpmain.width-pbmpsub.width do        begin             b:=comparemem (@Pmain [X*3],psub,sizeof (@psub));             if  b then  begin               for z := 0  to pBmpSub.Height - 1 do begin                 Pmain := pBmpMain.ScanLine[y+z];                 psub := pBmpSub.ScanLine[z];                 b:=comparemem (@Pmain [X*3],psub, PBMPSUB.WIDTH * 3);                 if not b then break;               end;                 if b then Break;             end;            if b  then break;        end;        if b then  break;    end;    result:=b;end;

This article is from the "rzl_01 blog" blog, make sure to keep this source http://rzl01.blog.51cto.com/3004337/1605263

Delphi a scanline memory to find the function of the sub-graph, do not know if there is a problem.