procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(ColorToString(clRed)); Memo1.Lines.Add(IntToStr(StringToColor(‘clRed‘))); end;
TColor转化为字符串
原文：http://www.cnblogs.com/yzryc/p/6373589.html
