[Lazarus-es] Fw: Funcion para convertir de caracter a ascii

[JoshyFun]

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 :-?

-- 
Best regards,
 JoshyFun