Código Delphi [-] var i: TEnum; c: TSetEnum; begin for i in c do begin // i sólo tendrá los valores del conjunto end; end;
var i: TEnum; c: TSetEnum; begin for i in c do begin // i sólo tendrá los valores del conjunto end; end;