Мастера, как сгенерить код HTML цвета типа #FFCECE, #FFFFFF

← →
Layner © (2004-03-09 14:14) [0]

и т.п., т.е. надо 100 получить значений красного, я могу прогнать цикл по красному цвету,
for i:=1 to 250 do
color:=RGB(i,255,255); //например
Можно шаг установить..
..А как вот это значение конвертнуть в HTML формат цвета... т.е. в Буквы. Может кто знает? Заранее спасибо.

← →
Плохиш (2004-03-09 14:19) [1]

IntToHex

← →
YuRock © (2004-03-09 14:20) [2]

"#" + PadL(Format("%x", [GetRValue(Color)]), 2, "0") + PadL(Format("%x", [GetGValue(Color)]), 2, "0") + PadL(Format("%x", [GetBValue(Color)]), 2, "0");

Надеюсь, понятно, зачем здесь нужна ф-ция PadL?

← →
Layner © (2004-03-09 14:44) [3]

Плохиш (09.03.04 14:19)
А как это же в стринг преобразовать?

← →
Anatoly Podgoretsky © (2004-03-09 14:50) [4]

Еще раз?

← →
Плохиш (2004-03-09 14:56) [5]

>Layner © (09.03.04 14:44) [3]

Может всё-таки спустишься на нашу грешную землю и с изволите ваше благородие сами в хелп глянуть?

Надеюсь, понятно, зачем здесь нужна ф-ция PadL?
Млин.. совершенно не понятно :(
Сделал так, нормально, но цифер 4 пары...
procedure TForm1.Button1Click(Sender: TObject); var i: integer; col: TColor; begin for i:=1 to 100 do begin col:=RGB(i,255,255); Memo1.Lines.Add(ColorToString(col)); end; end;

А понятно, первый 2 нуля не нужны. Все, спасибо!!!

Сделай так - заработает!

function PadL(St: String; N: Integer; WithCh: String= " "):String; var // Дополнить слева строку <St> до <N> символов используя символ <WithCh> S: String; I: Integer; begin S := ""; if Length(St) <= N then begin for I := Length(St) to N - 1 do S := S + WithCh; Result := S + St; end else Result:= copy(St, 1, N); end; function ColorToString(col: Cardinal): String; begin Result := "#" + PadL(Format("%x", [GetRValue(Color)]), 2, "0") + PadL(Format("%x", [GetGValue(Color)]), 2, "0") + PadL(Format("%x", [GetBValue(Color)]), 2, "0"); end;

Мастера, как сгенерить код HTML цвета типа #FFCECE, #FFFFFF Найти похожие ветки