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

[Paul Ishenin]

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.

Best regards,
Paul Ishenin.