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