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. _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel