myColor:String中存放颜色常量字符串如:clRed;
想把myColor赋值给canvas.pen.color,有什么办法。这个颜色常量字符串是从数据库中读出的,我想
mycolor:Tcolor;
mycolor:=adoquery1.fieldbyname('color').asVariant;也不行。
想把myColor赋值给canvas.pen.color,有什么办法。这个颜色常量字符串是从数据库中读出的,我想
mycolor:Tcolor;
mycolor:=adoquery1.fieldbyname('color').asVariant;也不行。
canvas.pen.color := StrToInt(myColor.String[0])