Den RangeTest hätte man sich eh sparen können, da jasowieso nur ein Byte hingeschickt wird, also die grenzen sowieso nie über-/unterschritten werden,
aber die Typumwandlung (Byte<>Integer) spart man sich zweimal.
ich glaub mit Hexadezimalwerten würde das och nicht schlecht rüberkommen, dann erkennt man vielleicht sogar noch 'ne Gesetzmäßigkeit in den Werten?
Delphi-Quellcode:
function WebSafeVal(int: Byte): Byte;
begin
case int of
0..26: Result := 0;
27..76: Result := 51;
77..127: Result := 102;
128..178: Result := 153;
179..229: Result := 209;
else Result := 255;
end;
end;