Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Necesito el Numero ASCII de un caracter (https://www.clubdelphi.com/foros/showthread.php?t=14328)

ingel 16-09-2004 18:36:44

Necesito el Numero ASCII de un caracter
 
Hola gente ..
Necesito controlar en una cadena de caracteres que no contenga ningun caracter
que sea MENOR que el ASCII 32 , NI MAYOR que el caracter ASCII 175 ..
Hay alguna funcion que me devuelta el numero ASCII de un caracter ..
porque intente algo aon la funcion CHR() ...pero me hizo algo como

chr('ñ') > #175 ... y me da TRUE ... siendo el ascii de la ñ el 164
asi que estoy buscando otra funcion/forma para hacerlo..


Encontre esto en el foro .. pero al probarlo con la ñ me da el valor 241 y el assii de la ñ si no me equivoco es el 164 ... no ?

if Edit1.Text <> '' then
Label1.Caption := IntToStr(Ord(Edit1.Text[1]));


Gracias a todos como siempre....

Al González 16-09-2004 20:31:32

¡Buen día a todos!

Ingel:

Windows maneja diferentes juegos de caracteres, dependiendo del idioma configurado en el sistema.

Según nos comentas, necesitas que la cadena no contenga ningún carácter menor a espacio o mayor a 165 (el valor ASCII de la eñe mayúscula, si no me equivoco).

Muchas veces es importante plantear no sólo la idea que se tiene, sino también el objetivo, ya que de esta forma los lectores podemos hacer sugerencias alternativas que pueden resultar más efectivas.

Sabemos la idea, pero ¿cuál es el objetivo? Intuyo que tal vez es: sólo permitir caracteres del idioma español ¿Con qué finalidad :rolleyes:?. Te agradecería que nos ampliaras un poco más tu caso.

Gracias.

Atentamente,

Al González :).

jachguate 16-09-2004 20:54:12

Solo comentar que a mi las viejas funciones ord y chr siempre me han funcionado, y veo aqui una confusión.

La definición de estas funciones seria algo como:

function chr(codigoASCII : byte) : Char;
function ord(caracter : char) : Byte;

de alli que

chr('ñ'), no debiera compilar.

dado que se tienen los límites bien definidos, y sabiendo que chr(32) = ' ' y chr(165) = 'Ñ', podria funcionar la comparación directa de caracteres, que es perfectamente soportada por pascal.
Código Delphi [-]
if (cadena[i] < ' ') or (cadena[i] > 'Ñ') Then
  Error;

Hasta luego.

;)

ingel 17-09-2004 16:53:29

objetivo ..
 
Gracias por responder ..
El objetivo de la comparacion es que los benditos controladores fiscales imprimen solo desde el ascii 32 al 175 por eso quiero controlar las cadenas de caracteres antes de mandar la impresion

respecto a la comparacion chr('ñ') > #174 ... seguramente no la codifique asi ..mi duda era porque me da 241 el ASCII de la ñ en lugar de 164 ...

de todas formas podria comparar directamente con el espacio (32)
y el caracter (») 175 .... no ? que este ENTRE esos caracteres ?

GRACIAS
Ingel


La franja horaria es GMT +2. Ahora son las 07:37:43.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi