[fpc-devel] Re: Testing for..in feature

[Florian Klaempfl]

Paul Ishenin schrieb:
> Alexander Klenin wrote:
>> Yet another bug:
>>
>> ---
>> type T = (a1, b1=5);
>> var
>>   ch: T;
>> begin
>>   for ch in T do Writeln(ch);
>> end.
>>   
> This is caused by the problem in the for-to loop:
> 
> for ch := Low(T) to High(T) do
>   WriteLn(ch)
> 
> How should I solve the problem in the for-in loop?
> 
> I tried the next way:
>  ch := Low(T);
>  while ch <= High(T) do
>  begin
>    WriteLn(ch);
>    inc(ch);
> 
> But it fails the same way.

You can use the rtti generated for those enums.