W wuyaobin Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-06 #2 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;
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;