WebSafe Farben

[himitsu]

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;