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.