Estimados compa�eros del foro:

Llevo un par de a�os apuntado a "nuestra" lista, leyendo y aprendiendo de vuestros mensajes.
Este es mi primer mensaje. Un saludo a todos.

Llevo unos cuantos meses probando CodeTyphon 2.70
bajo Windows XP SP3, todo 32 bits. En todos los .pas pongo {$mode delphi} para evitarme problemas...

Las pruebas van bien, y empieza a gustarme Lazarus...

Pero me ha surgido un problema con unas rutinas, que uso desde hace a�os en Delphi 6. Las rutinas los que hacen es transformar (comprimir) numeros enteros, a strings de la mitad de su tama�o.

Un ejemplo:

el integer 9876543210 se convierte a 'ABCDE'

El codigo de las rutinas os lo pongo al final del mensaje.

El problema que me he encontrado al usarlas en Lazarus, es que en MUY POCAS ocasiones, devuelven una cadena con un char menos de tama�o. Es decir, le paso 123456, me deberia dar algo como XXX, pero me da solo XX.

Lo unico que se me ocurre, es que debido al uso de UTF-8 (o sabe dios que), alguna pareja de chars que devuelve la funcion, se interprete como uno. Las funciones funcionan perfectamente en Delphi 6, que creo que usa ANSI para los strings...

La verdad es que el rollo del utf-8 "para todo" en lazarus me esta dando muchos problemas. Espero que las ventajas de usar utf-8 merezcan la pena.

Si a alguien se le ocurren ideas, las probare. Tambien podeis comentar optimizaciones a las rutinas. Las uso a menudo en Delphi.

Estas son las funciones (que son open source para todos):

function TFPrincipal.EncodeTextInteger64(const num: int64):string;
// NECESITA: un numero entero positivo o negativo
// DEVUELVE: una cadena, de longitud par, con el numero codificado segun el siguiente esquema
//           - si el numero es negativo, se le quita el signo
//           - si el numero de cifras es impar, se a�ade un cero a la izquierda
//           - cada bloque de dos cifras, se sustituye por su c�digo ASCII
//             desplazado 32 posiciones hacia adelante
//           - con el primero de ellos, distinguimos si es negativo o positivo:
//             si es positivo, se desplaza 32 como siempre (es decir, estara entre 32 y 131)
//             si es negativo, no estara desplazado 32, sino 32+100 (es decir, estara entre 132 y
231)
// EJEMPLOS:   1056->   42   88 -> *X      90860599->122 118 37 131->zv%�
//            -1056-> 42+100 88 -> �X       -11231 ->133 44 63 ->�,?
// NOTAS: esta pensada para guardar numeros enteros grandes en ficheros de texto
//        se consigue un ahorro del 50% respecto a texto puro, y solo se pierde
//        un 25% respecto al formato binario (el mas eficiente)
var auxs, cacho: string;
    auxi: integer;
    neg: boolean;
begin
  result:='';
  neg:=false;
  if num>=0 then auxs:=inttostr(num)
  else begin auxs:=inttostr(-num); neg:=True; end;
  if length(auxs) mod 2 =1 then auxs:=' '+auxs;
  for auxi:=1 to length(auxs) do
  begin
    if (auxi mod 2)=0 then continue;
    cacho:=copy(auxs,auxi,2);
    result:=result+chr(strtoint(cacho)+32);
  end;
  if neg then result[1]:=chr(ord(result[1])+100);
end;
function TFPrincipal.DecodeTextInteger64(const numtext: string):int64;
// NECESITA: una cadena que sea un entero codificado segun EncodeTextInteger()
// DEVUELVE: el numero entero "decodificado", segun este esquema
//           - cada caracter, se pasa a numero ASCII u se le resta 32
//           - se compone el numero concatenado los ASCII
//           - en funcion del 1� sabemos si es negativo o no
// EJEMPLOS: *X->42 88->1056      zv%�->122 118 37 131->90860599
// NOTAS: es la complementaria de EncodeTextInteger()
var i: integer;
    auxs: string;
begin
  if numtext[1]>=#132 then auxs:='-'+format('%2.2d',[ord(numtext[1])-132])
  else auxs:=format('%2.2d',[ord(numtext[1])-32]);
  for i:=2 to length(numtext) do
    auxs:=auxs+format('%2.2d',[ord(numtext[i])-32]);
  result:=strtoint64(auxs);
end;