枚举型如何转字符型?(5分)

  • 主题发起人 主题发起人 shenger
  • 开始时间 开始时间
S

shenger

Unregistered / Unconfirmed
GUEST, unregistred user!
枚举型如何转字符型?
 
type
colours=(red,blue,green);
var
colour: colours;

implementation
uses TypInfo;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
caption:=GetEnumName(TypeInfo(Colours),Ord(blue));
end;
 
接受答案了.
 

Similar threads

回复
0
查看
1K
不得闲
回复
0
查看
978
不得闲
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部