Исследование алгоритмов распознавания регистрационных номеров автомобилей

Дипломная работа - Компьютеры, программирование

(Pixels[20,30] = clBlack) or

(Pixels[20,31] = clBlack) or

(Pixels[19,30] = clBlack)

then Include(tmpset,7);

if (Pixels[ 9,40] = clBlack) or

(Pixels[10,40] = clBlack) or

(Pixels[11,40] = clBlack) or

(Pixels[10,39] = clBlack)

then Include(tmpset,8);

end;

for i := 0 to 9 do

begin

tmp := True;

for j := 0 to 8 do

if (mas[i,j] = 0) and (j in tmpset)

then tmp := False;

if tmp then

begin

Result:=IntToStr(i); //результирующая цифра

Break;

end;

end;;