Код
a:=1; b:=1; c:=2; // по умолчанию, а=1 - средняя, b=1 - большая, с=2 - маленькая
Определения положения каждой из 3-х цифр.
// 1 цифра
for x:=1 to 13 do
if img1[1,x]=clblack then // нам встретился черный цвет, значит…
a:=2; // первая цифра большая
// 2 цифра
for x:=1 to 13 do
if img2[4,x]=clblack then
b:=2; // 2 цифра - средняя
// 3 цифра
for x:=1 to 13 do
if img3[4,x]=clblack then
c:=3; // третья цифра средняя
// 3 цифра
for x:=1 to 13 do
if (img3[1,x]=clblack) and (img3[14,x]=clblack) then
c:=4; // 3 цифра большая
// 3 цифра
for x:=1 to 13 do
if (img3[15,x]=clblack) and (img3[4,x]=clwhite) then
c:=1; // 3 цифра косая
(автор перепутал x и y ?.. --прим. редактора)
ХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ
ХХХХХХХХХХХХХХХХХХХХХХХ
Имея базу для сравнения, можно приступать к распознанию цифр.
for d:=1 to 3 do begin // 1..3 цифра
if (a=1)and(d=1) then begin // рассматриваем средний размер 1 цифры
for j:=0 to 9 do begin // 0..9 цифр
Z:=0; // число совпадений
for x:=0 to 17 do
for y:=0 to 14 do begin
// Проверяем, является ли цифра - нулем
if j=0 then begin
if img1[x,y]= cifra0[x,y] then Z:= Z +1; // совпадение
if Z =270 then S1:=j; // Первая цифра 0!
end;
// .. проверяем остальные Cifra0-9 цифр
end;
end;
if (a=2) and (d=1) then begin // рассматриваем большой размер 1 цифры
// .. массив cifraB0[x,y] // cifraB - массив из больших цифр
// .. проверяем остальные CifraB0-9 цифр
end;
end;
// ..проверяем для 2 и 3 цифры, S2 и S3
вот кусок кода, как общеал, полный исходник не нашел