Cual es la funci�n de convertir de caracter a ascii que he buscado y no la encuentro, �sea la inversa de Chr.

intc:=funcion('�');
por lo que intc := 130

GRACIAS
=========
�� ISMAEL ��
=========
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20091203/b21b72f8/attachment.html>

Hello Ismael,

Thursday, December 3, 2009, 10:04:23 PM, you wrote:

ILDG> Cual es la funci�n de convertir de caracter a ascii que ILDG> he buscado y no la encuentro, �sea la inversa de Chr.

Para convertir de una entidad a entero es "Ord", tambi�n v�lida para tipos enumerados.

Hello Ismael,

Friday, December 4, 2009, 12:29:15 AM, you wrote:

ILDGa> Ya hab�a mirado dicha funci�n, pero no he encontrado la forma de pasar una ILDGa> letra a ordinal.
ILDGa> Ya que ord('a') da error.
ILDGa> lo que quiero es:
ILDGa> var i: integer;
ILDGa> i := ord('a');

Acabo de probarlo ahora mismo y funciona :-? Mi c�digo:

function nada(): integer;
var
   i: integer;
begin
   i:=ord('a');
   Result:=i;
end;

Ya hab�a mirado dicha funci�n, pero no he encontrado la forma de pasar una letra a ordinal.

Ya que ord('a') da error.

lo que quiero es:

var i: integer;
i := ord('a');

Saludos reiterados
=========
�� ISMAEL ��
=========

var
  valor : Integer;
  car :Char;
  valor := chr('a'); //devuelve el valor ascii 65
  car   := ord(65); //devuelve letra a

Prueba a ver si te funciona:

procedure TForm1.Button1Click(Sender: TObject);
var
   i : integer;
begin
  i := ord('�');
  ShowMessage ('No. ' + inttostr(i));
end;

A mi n�, me da error.

Saludos reiterados
=========
�� ISMAEL ��
=========

Est�s seguro, no ser� al rev�s.

Pero de todos modos prueba con las letras acentuadas (�, �, �, �, �) a ver si funciona?

Saludos
=========
�� ISMAEL ��
=========

Hello Ismael,

Friday, December 4, 2009, 3:58:15 PM, you wrote:

ILDGa> procedure TForm1.Button1Click(Sender: TObject);
ILDGa> var
ILDGa>    i : integer;
ILDGa> begin
ILDGa>   i := ord('�');
ILDGa>   ShowMessage ('No. ' + inttostr(i));
ILDGa> end;
ILDGa> A mi n�, me da error.

�jo!!! '�' en UTF-8 no es un byte, son 2, por lo tanto no hay un "ord" que valga. Tendr�as que hacer:

i:=Ord(UTF8ToAnsi('�')[1]);

Ya que el editor por defecto trabaja un UTF-8. Tu otra soluci�n ser�a cambiar la codificaci�n del c�digo fuente a ANSI, para ello pulsas con el click derecho, "File Settings" -> "Encoding" -> "ANSI (cpxxxx)".

Hello Maxi,

Friday, December 4, 2009, 2:31:28 PM, you wrote:

M> var
M>   valor : Integer;
M>   car :Char;
M>   valor := chr('a'); //devuelve el valor ascii 65
M>   car   := ord(65); //devuelve letra a

Ser� al rev�s no ? ;)

Si eso era lo que necesitaba (UTF8ToAnsi), pero sigo ahora con otro problema.

i := ord(UTF8ToAnsi(AnsiMidStr('text1', 1, 1)));
unit1.pas(39,8) Error: Ordinal expression expected

Saludos reiterados
=========
�� ISMAEL ��
=========

Disculpa me hab�a comido al [1] del final

  i := ord(UTF8ToAnsi(AnsiMidStr('�', 1, 1))[1]);

Saludos reiterados
=========
�� ISMAEL ��
=========

Hello Ismael,

Friday, December 4, 2009, 6:19:02 PM, you wrote:

ILDGa> Si eso era lo que necesitaba (UTF8ToAnsi), pero sigo ahora con otro
ILDGa> problema.
ILDGa> i := ord(UTF8ToAnsi(AnsiMidStr('text1', 1, 1)));
ILDGa> unit1.pas(39,8) Error: Ordinal expression expected

UTF8ToAnsi devuelve una string, una string puede tener m�s de 1 caracter, por lo tanto "ord" no puede actuar sobre �l, tendr�s que decirle que quieres acceder al primer car�cter:

i := ord(UTF8ToAnsi(AnsiMidStr('text1', 1, 1))   [1]   );

No se que es lo que pretendes conseguir, pero me parece que te est�s liando un poco para obtener tu objetivo. Otra forma de escribir eso ser�a (siempre que uses una variable, no 'text1'):

if Length(MiStr)>0 then begin
  i := ord(MiStr[1]);
end;

Si MiStr la has asignado antes:

MiStr := UTF8ToAnsi('Hola �����u��');
if Length(MiStr)>0 then begin
  i := ord(MiStr[1]);
end;

Si MiStr la has asignado desde un componente visual tipo Edit:

MiStr := UTF8ToAnsi(Edit1.Text);
if Length(MiStr)>0 then begin
  i := ord(MiStr[1]);
end;

El "if Length(MIStr)>0" es necesario ya que si la cadena es '' el acceso al primer caracter dar�a un SIGSEGV; ejemplo:

MiStr:='';
i := odr(MiStr[1]);

Hello Ismael,

Friday, December 4, 2009, 7:51:11 PM, you wrote:

ILDGa> Disculpa me hab�a comido al [1] del final
ILDGa>   i := ord(UTF8ToAnsi(AnsiMidStr('�', 1, 1))[1]);

Esto no te funciona por que lo tienes al rev�s:

i := ord(AnsiMidStr(UTF8ToAnsi('�'), 1, 1)[1]);

El texto "�" en UTF-8 son dos caracteres, si haces el MID 1,1 obtienes la parte baja del UTF-8. Como lo que creo es que quieres obtener el c�digo ANSI de "�" en tu codepage, primero debes de pasar el UTF-8 a ANSI y luego hacer los MID u operaciones que creas oportunas.

Por tu modo de trabajar con strings quiz� ser�a mejor que usaras WideStrings (UCS-16) (unicode de 2 bytes cada caracter), pero como no s� exactamente que persigues es dif�cil recomendarte alguna acci�n concreta.

Hello Ismael,

Friday, December 4, 2009, 10:26:52 PM, you wrote:

ILDGa> Ya funciona, pero de todos modos te pasa lo funci�n para que me des tu
ILDGa> opini�n de la forma m�s correcta:
ILDGa> function TForm1.scadena(sdato: string): string;
ILDGa> var
ILDGa>   strencript: string;
ILDGa>   intc, intlon: integer;
ILDGa> begin
ILDGa>   intc := 1;
ILDGa>   intlon := length(sdato);
ILDGa>   for intc := 1 to intlon do
ILDGa>     begin
ILDGa>       strencript := strencript +
ILDGa> IntToStr(ord(UTF8ToAnsi(AnsiMidStr(sdato,
ILDGa> intc, 1))[1]));
ILDGa>     end;
ILDGa>   result := strencript;
ILDGa> end;

No entiendo bien que quieres obtener, ya que el resultado de esto no parece bidireccional, esto es, no puedes obtener la cadena orginal a partir del resultado. Para que sea r�pida y efectiva yo la har�a as�:

function TForm1.scadena(sdato: string): string;
var
  AnsiStr,TempStr: ansistring;
  i,k,v: SizeInt;
begin
  AnsiStr:=UTF8ToAnsi(sDato);
  SetLength(Result,Length(AnsiStr)*3));
  k:=1;
  for i:= 1 to Length(AnsiStr) do begin
    v:=ord(AnsiStr[j]);
    TempStr:=IntToStr(v);
    move(TempStr[1],Result[k],Length(TempStr));
    inc(k,Length(TempStr));
  end;
  SetLength(Result,k);
end;

Ya funciona, pero de todos modos te pasa lo funci�n para que me des tu opini�n de la forma m�s correcta:

function TForm1.scadena(sdato: string): string;
var
  strencript: string;
  intc, intlon: integer;
begin
  intc := 1;
  intlon := length(sdato);
  for intc := 1 to intlon do
    begin
      strencript := strencript + IntToStr(ord(UTF8ToAnsi(AnsiMidStr(sdato,
intc, 1))[1]));
    end;
  result := strencript;
end;

Saludos reiterados
=========
�� ISMAEL ��
=========

No, no tiene que ser reversible.

El ejemplo que me env�as da al final un cuadrito que no he podido quitar. Me podr�as ayudar en ello, adem�s le tuve que arreglar el nombre de unas variables (cambiar j por i), pero eso fue un error m�nimo.

Saludos
=========
�� ISMAEL ��
=========

Hello Ismael,

Monday, December 7, 2009, 4:36:15 PM, you wrote:

ILDGa> El ejemplo que me env�as da al final un cuadrito que no he podido quitar. Me ILDGa> podr�as ayudar en ello, adem�s le tuve que arreglar el nombre de unas ILDGa> variables (cambiar j por i), pero eso fue un error m�nimo.

Fallo mio :( "Fallo de c�lculo"...

ILDGa>   SetLength(Result,k);
Deber�a ser: SetLength(Result,k-1);

El cuadrito no da siempre, prueba con una letra acentuada sola como dato

Saludos reiterados
=========
�� ISMAEL ��
=========

si este es el codigo, cual es el problema con:

function TForm1.scadena(sdato: string): string;
var
 i: integer;
begin
  result := '';
  for i:=1 to length(sdato) do
    result := result + IntToStr(ord(sdato[i]));
end;

al final el resultado es una cadena de numeros cada uno correspondiente al valor ordinal de cada caracter en la cadena original. Como ha dicho Joshy el valor no parece reversible por lo que es de suponer es para usarse como valor de comparacion y si esto es asi (perdon si se me paso la parte donde explican para que es el codigo), da igual que compares cadenas codificadas o des-codificadas.

Jesus Reyes A.

Encuentra las mejores recetas en Yahoo! Cocina.
http://mx.mujer.yahoo.com/cocina/

Ok, 1 Mill�n de gracias.
=========
�� ISMAEL ��
=========

Hello Jesus,

JR> si este es el codigo, cual es el problema con:
JR> function TForm1.scadena(sdato: string): string;
JR> var
JR>  i: integer;
JR> begin
JR>   result := '';
JR>   for i:=1 to length(sdato) do
JR>     result := result + IntToStr(ord(sdato[i]));
JR> end;

Para mi ninguno, pero se ve que quiere que los n�meros resultantes sean de la p�gina ANSI correspondiente, pero le entran en UTF-8... El resto de los lios que hago es para reducir la cantidad de operaciones con Strings, m�s que nada la cantidad de GetMem, FreeMem de las strings.

La verdad es que parece una semilla para un hash, o una especie de Mime64 pero no reversible :-?

Ya lo solucion�, ahora estoy trabado en el proceso inverso.

Convertir n�mero a car�cter. No me funciona chr(149) por ejemplo.

GRACIAS reiteradas
=========
�� ISMAEL ��
=========
PD: Como bien dices es una especie de hast no reversible para realiza validaciones.

Hello Ismael,

Monday, December 7, 2009, 11:00:09 PM, you wrote:

ILDGa> Ya lo solucion�, ahora estoy trabado en el proceso inverso. ILDGa> Convertir n�mero a car�cter. No me funciona chr(149) por ejemplo.

Char(149)...

Gracias reiteradas, se puede decir que voy caminando en este nuevo mundo por ti y por Paola.

Mis problema siguen.

Estoy usando un TMaskEdit para manipular fechas, y le puse en la propiedad:

EditMask := 99.99.9999;1;_

La cual no se si ser� la correcta, por lo que estoy ahora enrredado en saber si la fecha tecleada es correcta, he traado de hacer algo como esto:

if not isdate(txtmes.Text) then txtmes.Text := '__.__.____';

Pero da error.

Gracias reiteradas y perdonen tanta molest�a.
=========
�� ISMAEL ��
=========