uses TypInfo; type TTest = (clRedX, clGreenX,clBlueX,clBlackX,clWhiteX,clYellowX); procedure TForm1.Button1Click(Sender: TObject); var ti: PTypeInfo; td: PTypeData; i: Integer; begin ti := TypeInfo(TTest); td := GetTypeData(ti); for i := td^.MinValue to td^.MaxValue do ListBox1.Items.Add(GetEnumName(ti, i)); end;
谢祥选【小宇飞刀(xieyunc)】
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
