Valor entero de TValueSign

[aggg63]

Hola.

La funcion sign devuelve el tipo TValueSign definido como


type
TValueSign = -1..1;


He intentado varios cast de TValueSign pero no funcionan. ¿Como puedo obtener el valor entero de TValueSign de una manera sencilla? Sin hacer una funcion Signo del tipo


if x=0 then
return:=0
else if x>0 then
return:=1
else
return:=-1;


Gracias.

[Al González]

¿Y de qué forma lo has intentado? :)

[roman]

Yo lo que no entiendo es para qué quieres hacer el moldeo. Un tipo de datos como TValueSign es un subrango de los enteros, por tanto, puedes asignarlo directamente a una variable de tipo Integer.

// Saludos

[aggg63]

Gracias Roman por la pista. Se colo una variable string cuando pensaba que era un entero. Tarde horas en darme cuenta, siempre leia lo mismo. Ahora funciona correctamente. Disculpad las molestias.