On Sun, 15 May 2022, Martin Frb via fpc-pascal wrote:

On 15/05/2022 15:07, Hairy Pixels via fpc-pascal wrote:
var
   I: ElementType(TMySet);
begin
   for i := low(TMySet) to high(TMySet) do
     ;

type
  TMySet = set of (one,two,three);
var
  I: low(TMySet) .. high(TMySet) ;
begin
  for i := low(TMySet) to high(TMySet) do
    ;
type
  TMySet=set of (one,two,three);
var
  I:low(TMySet)..high(TMySet);

begin
  for i:=low(TMySet) to high(TMySet) do
   writeln(i);
end.

prints indeed

one
two
three

Michael.
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Reply via email to