Цитата:
|
Сообщение от Glob
есть BMP файл, который загружается в TImage
на этой картинке есть точки разного цвета(цветов может быть до 30 шт.)
Мне нужно узнать каких цветов больше, а каких меньше, то есть расположить например так:
Код:
цвет - кол-во пикселей
8421472 - 75
12632224 - 73
...
158418 - 3
и так далее
Цвет пикселя получаю через
Код:
c:= Image6.Canvas.Pixels[i, j] ; |
Можно массивом:
Код:
type
TColorsItem = record
Color: TColor;
Count: Integer;
end;
TColorsList = array of TColorsItem;
var
ColorsList: TColorsList;
Ещё можно TStringList для этого приспособить - цвет сохраняешь как строку (чтобы по "алфавиту" быстренько его находить), а количество в TStringList.Objects[].