RGB to indexed color palette, перевод из RGB в палитру 256 цветов Опции

[Билли Боб]

Как подогнать три цвета в один из 256-цветной палитры?

[TarasBer]

Нет, тип переменных менять не надо.
Надо только в выражении
Sqr(r - Palette256[i,0]) + Sqr(g - Palette256[i,1]) + Sqr(b - Palette256[i,2]);
написать
Sqr(r - longint(Palette256[i,0])) + Sqr(g - longint(Palette256[i,1])) + Sqr(b - longint(Palette256[i,2]));

[Lapp]

Да, этот момент я не учел..

написать
Sqr(r - longint(Palette256[i,0])) + Sqr(g - longint(Palette256[i,1])) + Sqr(b - longint(Palette256[i,2]));

Спасибо, Тарас, +1.
По идее, тут чуть-чуть не хватает типа word.. Но, собственно, без разницы - скорость с longint та же самая, думаю.