Código Delphi [-]var a, b, c: set of char; x: char; begin a := ['A', 'B', 'C', 'D']; b := ['C', 'D', 'E', 'F']; c := a*b; // "c" es la intersección de "a" y "b", c = ['C', 'D'] Memo1.Lines.Clear; for x in c do begin Memo1.Lines.Add(x); end; end;
var a, b, c: set of char; x: char; begin a := ['A', 'B', 'C', 'D']; b := ['C', 'D', 'E', 'F']; c := a*b; // "c" es la intersección de "a" y "b", c = ['C', 'D'] Memo1.Lines.Clear; for x in c do begin Memo1.Lines.Add(x); end; end;