如何读取和存放颜色

Question

function ColorToRGB(Color: TColor): Longint;

Answer 1

INIFile.Writestring(Inttostr(clAqua))
 or
 INIFile.WriteInteger(clAqua);

Answer 2

颜色类型
  clBlack = TColor($000000);
  clMaroon = TColor($000080);
  clGreen = TColor($008000);
  clOlive = TColor($008080);
  clNavy = TColor($800000);
  clPurple = TColor($800080);
  clTeal = TColor($808000);
  clGray = TColor($808080);
  clSilver = TColor($C0C0C0);
  clRed = TColor($0000FF);
  clLime = TColor($00FF00);
  clYellow = TColor($00FFFF);
  clBlue = TColor($FF0000);
  clFuchsia = TColor($FF00FF);
  clAqua = TColor($FFFF00);
  clLtGray = TColor($C0C0C0);
  clDkGray = TColor($808080);
  clWhite = TColor($FFFFFF);
  StandardColorsCount = 16;

Answer 3

TColor其实是整数枚举型，所以可以先转化为整型保存，读取时再转化为TColor型或直接用整型
试验如下：
procedure TForm1.Button1Click(Sender: TObject);
var
  cl: TColor;
begin
  cl := clRed;
  Caption := IntToStr(Integer(cl));
  Color := TColor(StrToInt(Caption));
end;

Answer 4

//参考
StringToColor()
ColorToString()

Answer 5

看了help里面的tcolor定义可以知道tcolor是一个实数，下面的应该可以实现的
edit1.text:=floattostr(richedit1.Color);
richedit1.Color:=strtoint(edit1.text);

Answer 6

Type
  TColor = -$7FFFFFFF-1..$7FFFFFFF;
所以可以这样
var
  mycolor:String;mycolor:=IntToStr(Color);反之亦然
color:=StrToInt(mycolor);

Answer 7

//你发的帖子都没有结帐！这样可不好，如果不会给分我可以帮你？如何读取和存放颜色（zql0913） 50 6 5-15 09:22 管理 
？自己做个SQL编辑器（zql0913） 50 0 5-15 09:10 管理 
？在TRichEdit中如何改变字体的颜色并可以继续输入（zql0913） 50 1 5-13 16:48 管理 
？如何在一个字符串分割字符（zql0913） 20 10 5-13 15:17 管理 
？如何将DBF文件的记录作物理删除!!!（zql0913） 20 2 4-28 23:10 管理 
？如何将ORACLE中的表导出成DBF!!（zql0913） 100 0 4-28 17:34 管理 
？关于TreeView的图标问题（zql0913） 20 5 4-5 19:05 管理 
？有关本地时间的问题（zql0913） 50 8 4-4 13:03 管理 
？如何自己制作编译器！（zql0913） 100 6 3-28 10:40 管理 
？关于证件打印机的问题!!!（zql0913） 20 1 3-19 15:12 管理 
？关于专用打印机指令问题!!!（zql0913） 50 0 3-18 17:58 管理 
？如何使用Printer打印出TShape（zql0913） 50 3 3-16 14:49 管理 
？关于TreeView取结点TEXT问题！（zql0913） 20 4 3-10 20:36 管理 
？取TEXT文件行的文字!（zql0913） 20 3 3-7 18:17 管理 
？剪切板复制的问题（zql0913） 20 2 3-5 22:56 管理 
？ORACLE表的问题（zql0913） 20 5 3-5 19:56 管理 
？关于数据类型的问题!!!（zql0913） 20 1 3-4 19:01 管理 
？关于如果取TMENO行数（zql0913） 20 2 2-11 21:37 管理 
？怎样打开文件（zql0913） 20 4 1-25 16:16 管理 
？两个小问题！！！（zql0913） 40 3 1-25 10:35 管理 
？关于制作压缩软件（zql0913） 50 6 1-11 16:00 管理 
？设置鼠标样式问题（zql0913） 20 4 12-13 08:43 管理 
？关于ListView的问题2222（zql0913） 20 3 11-11 12:58 管理 
？Delphi初学者请教循环问题！详情请进，重谢！（zql0913） 50 7 10-9 18:35 管理 
？数据库连接问题??????（zql0913） 20 2 9-15 11:28 管理 
rPB-Delphi（zql0913） 0 2 9-12 09:28 管理 
？初学者提问！！（zql0913） 22 2 8-26 13:55 管理 
27篇