Comparar String con Constante

[brandolin]

Hola a todos, paso a explicar el problema
Tengo las constantes siguiente:

cod1 = 100
cod2 = 101
cod3 = 102
cod3 = 103

y tengo un proceso que obtiene en un string una valor que es casualmente el nombre de la constante, y lo que quiero obtener es el valor de la constante... por ejemplo:

X := 'cod1';

y quiero comparar

if (X = nombre(cod1))
then Y := cod1;

siendo Nombre() la funcion que devolveria el nombre de la consnte y no su valor.

Alguna sugerencia. Gracias

PD: Esto en el anterior Clipper se llamaba macro sustitucion y se hacia con el @ antes del nombre de la variable....