Delphi-Quellcode:
// Überprüfen ob die RGB-Werte zulässig sind
if r < 0
then r := 0;
if g < 0
then g := 0;
if b < 0
then b := 0;
if r > 255
then r := 255;
if g > 255
then g := 255;
if b > 255
then b := 255;
wie sieht den das aus mach doch einfach
Delphi-Quellcode:
// Überprüfen ob die RGB-Werte zulässig sind
r := min(255, max(0, r));
g := min(255, max(0, g));
b := min(255, max(0, b));
Dank Inlining ist das genau so schnell, und sieht irgendwie hübscher aus
