Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Сохранение цвета в строку

Автор: Digo 23.10.2004, 19:24

Приветствую всех обитателей форума.
Подскажите как сохранить цвет (Hex) в стоку. Т.е. получить в ней его шестнадцатиричный код и наоборот. ColorToString не подходит. Спасибо. :qstn

Автор: Pakshin A. S. 23.10.2004, 19:35

Извините, но надо сохранить в файл, к примеру, Form1.Color. Тогда можно попробовать саздать такой файл

Код


Type
 TFile = file of TColor;

Автор: p0s0l 23.10.2004, 20:34

Код


var 
  c : TColor;
  hex : string;
begin
  c := clYellow;
  hex := IntToHex(c, 8);
  ...
  hex := '$12345678';
  c := StrToInt (hex); // строка должна начинаться с $
end;

Автор: MacTep 23.10.2004, 21:23

Код

function ColorToHTMLHexColor(Color: TColor): string;
begin
  result := IntToHex(GetRValue(ColorToRGB(Color)), 2) +
    IntToHex(GetGValue(ColorToRGB(Color)), 2) +
    IntToHex(GetBValue(ColorToRGB(Color)), 2);
end;

Так пойдет?

Автор: Digo 24.10.2004, 23:02

Спасибо все Ок.