переменая цвета

← →
>>DEATH<< (2006-10-02 07:47) [0]

как сделать чтобы в эдит вводиш код цвета и после нажатия кнопки цвет фона лабера становиться такогоже цвета..я поставил на переменную цвета тип интегер на простые(числовые коды чисел например #000000 работают а вот с буквами (например #ff00ff) уже все ошибки

← →
ЮЮ © (2006-10-02 07:59) [1]

не # а $

← →
>>DEATH<< (2006-10-02 08:18) [2]

всеравно ошибка

← →
Думкин © (2006-10-02 08:22) [3]

procedure TForm1.Button4Click(Sender: TObject); var i,k : integer; z: array [0..10] of char; begin k := 0; for i:=1 to HexToBin("010f",z,SizeOf(z)) do k := 256*k + ord(z[i-1]); Button4.Caption := inttostr(k); end;

← →
ЮЮ © (2006-10-02 08:55) [4]

Текст ошибки и код, естственно, представляют гос.тайну. У меня ошибок такое не вызывает:
Label1.Color := StrToInt("$ff00ff")

← →
Думкин © (2006-10-02 09:09) [5]

> ЮЮ © (02.10.06 08:55) [4]

Converts a string that represents an integer (decimal or hex notation) to a number.

Век живи - век учись.

Но если продолжать телепатирование, то ему скорее всего надо цвета HTML - там RGB&BGR c тутошним отличается. Но за клещами сходить стоит.

← →
>>DEATH<< (2006-10-04 12:59) [6]

так я и делал
Label1.Color := StrToInt("$ff00ff")
компилируеться нормально токак когда вводиш например ffffff то ошибка

а проверить первый символ на равенство и если что добавить к началу строки нужное религия не позволяет?

← →
>>DEATH<< (2006-10-04 13:05) [8]

небольшую ошибку допустил не $ff00ff а edit1.text

PS;простите что пишу повторное сообшение не нашел правки

цвет в делфи представляется как iBGR.
поэтому делать лучше так
Label1.color:=StrToColor("$00FF00FF");

переменая цвета Найти похожие ветки