En todo caso lo que puedes hacer es lo siguiente
descomponer el numero en digitos
valor = Valor del Primer digito
for 2 hasta la cantidad de digitos
Digito = Copy (cadena,x,1)
Si digito > Valor
Valor := Digito
endfor
al final el mayor digito se quedara en valor
__________________
Dulce Regalo que Satanas manda para mi.....
|