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;

posted on 2012-09-08 14:18 kiny 阅读(981) 评论(0) 编辑收藏举报