Conversion de Strings

[[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.