String and color

[RealSHELS]

Помогите правильно записать этот код.

procedure TForm1.Button1Click(Sender: TObject);
var a:string;
begin
if colordialog1.Execute then a:=colordialog1.color;
end;

[Aristarh Dark]

Про тэги не забываем

procedure TForm1.Button1Click(Sender: TObject);
var a:TColor;
begin
if colordialog1.Execute then a:=colordialog1.color;
end;

[RealSHELS]

а если

procedure TForm1.Button1Click(Sender: TObject);
begin
if colordialog1.Execute then form1.caption:=colordialog1.color;
end;

то тоже тэгами?

[Alter]

если пишется свойство от класса Txxxxxx, или как там ещё, то достатосно писать имя свойства для обращения к объекту.
TColor - обычное целое число.

procedure TForm1.Button1Click(Sender: TObject); 
begin 
 if colordialog1.Execute then
 caption:=IntToStr(colordialog1.color); 
end;

[RealSHELS]

а обратно сработает?

[BOBAH13]

Сообщение от RealSHELS

а обратно сработает?

Ну для начала. Вы хотите получить результат в какой системе счисления ? я думаю точно если желаите получить стринг, то точно уж не IntToStr - 10я. Я думаю вам нужна 16я ? т.е. #FFA000 такого вида. тогда дело обстоит так IntToHex(TColor, 6) или Format('%6.x', [TColor]); вроде верно ( если что смотрим в документации ) там еще прийдется переворачивать т.е. будет не #FFA000 а #00A0FF Думаю ответ исчерпывающий. И опять же, проблема вся в не полностью открытом вопросе ?!

[RealSHELS]

А почему вопрос не полностью открыт? Все понятно, нужно цвет в стринг перевести, а если поконкретнее, то нужно его в текстовом файле
сохранить.

[Aristarh Dark]

типа FF0000 - красный, 00FF00 - зеленый, 0000FF - сниний? Если так то удачи

[Serge_Bliznykov]

да не умножайте вы сущностей сверх необходимости!!

Сообщение от RealSHELS

нужно его в текстовом файле сохранить.

Делайте IntToStr(ваш_цвет) - получится ЧИСЛО в виде строки. сохраняйте в Вашем текстовом файле.
Прочитаете, сделаете обратную операцию.
Пример.

var
  A : TColor;
  s : string;
begin
  if colordialog1.Execute then a:=colordialog1.color;
  s := IntToStr(a);
  Label1.Color := Tcolor(StrToInt(s));
end;

[Gorychev]

Существуют функции ColorToString и StringToColor.
Только надо не забыть подключить uses .... Graphics;