[poli-smen]

Сообщение от 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[].