procedure TForm1.test;
type
xx=(a=4,b,c,d,e,f,g);
var
i:xx;
begin
for i := low(xx) to high(xx) do
showmessage(inttostr(ord(i)));
end;
枚举类型的访问
最新推荐文章于 2025-03-24 07:51:34 发布
procedure TForm1.test;
type
xx=(a=4,b,c,d,e,f,g);
var
i:xx;
begin
for i := low(xx) to high(xx) do
showmessage(inttostr(ord(i)));
end;