Código Delphi [-] var e: TEnum; c: TSetEnum; begin for e := Low(TEnum) to High(TEnum) do if e in c then { haz algo con e } end;
var e: TEnum; c: TSetEnum; begin for e := Low(TEnum) to High(TEnum) do if e in c then { haz algo con e } end;