Farbpaltte erstellen mit 255 farben

[turboPASCAL]

Ersetze das # durch $. (#00FFFFFF zu $00FFFFFF)

zB.:

Delphi-Quellcode:

function HexToColor(St: String): TColor;
begin
  if St[1] = '#' then St[1] := '$';
  Result := TColor(StrToInt(St));
end;