用delphi比较两张图片的类似度

procedure TFrm_test.initList; var idx, i, k, x, y, l: integer; p, fn: string ; bmp: TBitmap; BColor, NowColor: TColor; begin p : = ExtractFilePath(Application.ExeName); bmp : = TBitmap.Create; for i :

>>阅读原文<<