Delphi7遍历枚举，子界

Delphi2009或者其他的语言说道遍历不是for..in就是直接foreach，Delphi7如何遍历呢？

一、遍历枚举

1 //需要引用TpyInfo单元
2 Type
3     TImageType = (jpg,gif,png,bmp,tif,psd);
4
5 var
6     image:TImageType;
7     i:Integer;
8 begin
9     i := 0;
10     for image:= Low(TImageType) to High(TImageType) do
11     begin
12         TpyInfo.GetEnumName(TypeInfo(TImageType),i);
13         Inc(i);
14     end;
15 end;

二、遍历子界

1 Type
2    Uppercase = 'A'..'Z';
3
4 var
5    UppLetter:Uppercase;
6 begin
7     for UppLetter:= Low(Uppercase) to High(Uppercase) do
8     begin
9         ShowMessage(UppLetter);
10    end;
11 end;

转载于:https://www.cnblogs.com/kiny/articles/2676628.html

• 点赞
• 收藏
• 分享
• 文章举报