Establecer parametros determinados en funciones y procedimientos

[[Chris]]

Empezado por emeceuy

me quedó una duda... como hago para definir un tipo que tenga solo determinados caracteres?

por ejemplo, si pongo 'A'..'C' mi tipo aceptará A, B y C... pero que pasa si quiero que tenga 'L','C','T' y 'U'? como se define?

salu2 gracias

Código Delphi [-]
TSoloChars: 'A'..'C', 'L','C','T', 'U';

[emeceuy]

gracias por las respuestas !! pero sigo sin poder hacerlo funcionar...

podría hacerlo dentro de la funcion, pero me gustaria tener mas seguridad en tiempo de edicion, por eso es que quiero que solo admita ciertas letras.

si pongo

Código Delphi [-]
type
   TSoloChars : 'A'..'C', 'L','C','T', 'U';
end;

en la parte de arriba, donde se declaran los otros tipos, me dice que se esperaba = pero que se encontró :
entonces pongo = y me dice, que se esperaba ; y se encontró , como si no dejara definir más de una letra o conjunto de letras...

como es? que confusion !!!

[[Delphius]]

Hola,

En ese caso puedes hacer algo como esto:

Código Delphi [-]
function CaracterPermitido(Caracter: Char): boolean;
begin
  result := Pos(Caracter,SOLO_CHARS) > 0;
end;

Siendo, SOLO_CHARS de esta forma:

Código Delphi [-]
const
  SOLO_CHARS = 'ABCLTU';

De modo que sólo tienes que hacer tu función (o procedimiento) de modo tal que llame a la función anterior para comprobar si es un caracter válido y de allí hacer la operatoria necesaria.

Saludos,