Where did I go wrong?
Code:program New; var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z: integer; px,py: integer; acc: extended; procedure LoadPics; begin d:= LoadBitmap('.\letters\d.bmp'); e:= LoadBitmap('.\letters\e.bmp'); i:= LoadBitmap('.\letters\i.bmp'); r:= LoadBitmap('.\letters\r.bmp'); v:= LoadBitmap('.\letters\v.bmp'); end; begin writeln('Waiting 3 seconds..'); sleep(3000); writeln('Searching..'); if(FindDeformedBitmapToleranceIn(d, px, py, 0, 0, 800, 600, 70, 0, True, acc)) then //PROBLEM LINE begin writeln('Found it'); end else begin writeln('No dice.'); end; end.


Reply With Quote













