Farbwerte aus Textdatei einlesen

[eddy]

Hallo Hellcat,

probier's mal damit:

Code:

function IntToHexCol(w : integer) : string;
const
  hex : array[0..15] of char = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
var
  i,
  t : integer;
  s : string;
begin
  s := '';
  for i := 1 to 8 do begin
    t := w and $0F;
    s := hex[t] + s;
    w := w shr 4;
  end;
  Result := '$' + s;
end;

mfg
eddy