有关Tcolor的类型(10分)

Y

yytxt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #1

请教各位高手一下：
有没有可以对TColor类型和String类型进行互相转换的函数或过程？

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #2

var
Col:TColor;
s:string;
begin
Col:=clRed;
s:=InttoStr(Col);
ShowMessage(S);
end;

 

Y

yytxt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #3

我要将string转为TColor，该如何呢？

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #4

col:=Strtoint(S);

 

R

real_clq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #5

你只要记住TColor就是integer

 

Y

yytxt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #6

那我将转换后的integer值赋给Color属性可以吗？

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #7

function colortoRGB(Tcolor):longint;
然后转为string

 

R

real_clq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #8

可以

 

Y

yytxt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #9

多人接受答案了。