摘要： function Compare(bit1: TBitmap; bit2: TBitmap; nC: Integer; Img: TImage): Integer;var x,y , nRe: Integer; bx, by, bbs: Byte; bColor: TColor; temBit: TBitmap;begin if Img <> nil then begin temBit := TBitmap.Create; temBit.Width := bit1.Width; temBit.Height := bit1.Height; end; nRe :=... 阅读全文