Conversion de Strings

[[Lepe]]

Creo que estas intentando encontrar una solución sin comprender como llegar a ella.

Tienes Chr y Ord para traducir una letra a su equivalente Ascii y viceversa.

Si el código ascii de cada letra, lo tienes en una cadena separada por espacios, sólo es cuestión de analizar esa cadena.

Código Delphi [-]
var ascii : string;
     ValorNumerico : integer;
     letraFinal : Char;
begin
  ascii := '105'; // representación de la letra "i" en ascii
  valornumerico := strtoint(ascii); 
  letrafinal := chr(valornumerico);

// o resumiendo:
letrafinal := chr(strtoint(ascii));
end;

PD: El segundo código no funciona bien, ya que el bucle for empieza en cero, y un String siempre empieza en el índice uno. Intentalo con la cadena "Bien" y verás que en el ShowMessage obtienes 5 valores ascii, cuando solo hay 4 letras. Eso demuestra que no has analizado bien el código

Saludos

[[seoane]]

Si comprendo bien lo que quieres hacer, que puede que me equivoque, lo que necesitas es a partir de una cadena de texto obtener otra donde cada letra esta identificada por su código ASCII, y luego realizar el proceso contrario. Esto me recuerda bastante al urlencode / urldecode que se utiliza para las direcciones url, donde los caracteres problemáticos se sustituyen por su valor ASCII precedido del símbolo %. Supongo, y estoy adivinando, que tu te encuentras en el mismo caso, necesitas enviar / guardar una cadena por algún método que solo permite un cierto tipo de caracteres y necesitas poder tratar con los caracteres problemáticos.

Si ese es tu caso te recomiendo el truco 62, que hace eso mismo. Aunque si lo que quieres es convertir todos lo caracteres y no utilizar el %, puedes usar algo como esto:

Código Delphi [-]
function Encode(Str: string): string;
var
  i: integer;
begin
  Result:= '';
  for i:= 1 to Length(Str) do
    Result:= Result + IntToHex(Ord(Str[ i ]),2);
end;

function Decode(Str: string): string;
var
  i: integer;
begin
  Result:= '';
  while Length(Str) > 0 do
  begin
      if not TryStrToInt('$' + Copy(Str, 2, 2),i) then
      begin
        Result:= '';
        Exit;
      end;     
      Result:= Result + Char(i);
      Delete(Str, 1, 2);   
  end;
end;

[[FGarcia]]

Nuevamente aqui!

Lepe: En el segunco codigo si detecte lo del caracter de mas que siempres es 0; no corregi cuando envie el mensaje. El codigo que me propones es con el que comence antes de poner este hilo tu le das el valor a la variable ascii = '105' y lo traduce correctamente en la letra i si le das '67' te escribe C, pero eso es lo que tu y yo sabemos que esas son sus equivalencias, un operario estandar solo veria que debe ingresar CASA y el programa hace todo (conversion y lo que tenga que hacer) transparente a el, si intentas que ASCII := 'CASA' se genera un error:

---------------------------
Project1
---------------------------
'C' is not a valid integer value.
---------------------------
Aceptar
---------------------------

y asi comenzo todo....

SEOANE : estas correcto, necesito guardar una cadena en sus valores ASCII o HEX como lo propones. La funcion ENCODE me funciona OK, la DECODE me regresa solo garabatos, estoy revisando para tratar de entender que pasa. Algo valioso es que conoci una nueva sentencia "TryStrToInt".

LEPE, SEOANE Gracias nuevamente por su ayuda y tiempo!

[[seoane]]

Efectivamente la función decode no va, eso pasa por poner las cosas con prisa.

Ahora si que funciona:

Código Delphi [-]
function Decode(Str: string): string;
var
  i: integer;
begin
  Result:= '';
  while Length(Str) > 0 do
  begin
      if not TryStrToInt('$' + Copy(Str, 1, 2),i) then
      begin
        Result:= '';
        Exit;
      end;
      Result:= Result + Char(i);
      Delete(Str, 1, 2);
  end;
end;

Para probarla:

Código Delphi [-]
var
  s: string;
begin
  s:= Encode('Hola mundo');
  ShowMessage(s);
  s:= Decode(s);
  ShowMessage(s);
end;

[[seoane]]

También te recomiendo el truco 53, que además de convertir el texto lo cifra.