Código Delphi [-] type TLetraABoC = (ltA,ltB,ltC); procedure MiFuncion(a : TLetraABoC); begin end; MiFuncion(ltA);
type TLetraABoC = (ltA,ltB,ltC); procedure MiFuncion(a : TLetraABoC); begin end; MiFuncion(ltA);