请问如何把字符串的值转换成颜色变量的值,又如何把颜色变量的值转换为字符串的值呢?在线等待.请帮助.

Question

请问如何把字符串的值转换成颜色变量的值,又如何把颜色变量的值转换为字符串的值呢?在线等待.请帮助.

Answer 1

var
  color : TColor;
  s : string;
 ...s := IntToStr (color);
color := StrToInt (s);

Answer 2

在delphi帮助文档中：
type TColor = -$7FFFFFFF-1..$7FFFFFFF;
所以TColor也就是整形数据。

Answer 3

用 StringToColor()和ColorToString()系统函数啊！

Answer 4

这要看你是想把颜色值转变成怎样的字符串，又想把怎样的字符串转变为颜色值。假如仅仅是要在整型值样式的字符串和颜色值之间转换，那么用 syl79 的方法不错。但是如果想把类似 '#FF9900' 的字符串转换成颜色值，那么请参考下面的代码：procedure TForm1.FormCreate(Sender: TObject);
var
  Color: TColor;
begin 
  Color := TColor(StrToInt(StringReplace('#FF9900', '#', '$', [])));  // <1>
  Color := StringToColor('$FF9900');                                  // <2>
end;第<1>句和第<2>句是等价的，注意StringToColor仍是要接受一个整型值字符串，用#FF9900是不行的。