De entero a hexa, y hexa a entero (o string)

[jachguate]

En realidad un número binario de 40 digitos (40 bits) si cabe en un int64, que tiene, como lo revela su nombre, una capacidad de 64 bits.

O ya puestos a manipular las cosas... podes "partir" la cadena en dos números de 20 bits, para luego, cuando sea necesario, "concatenarla" de nuevo, no?

Hasta luego.

[roman]

Yo ya no entendí de qué a qué quieres convertir. Dices que quieres pasar la cadena binaria a hexadecimal paa que ocupe menos caracteres. ¿No te sirve mejor pasarla directamente a un entero? Podrías hacerlo con una función como esta:

Código Delphi [-]
function BinStrToDec(BinStr: String): Integer;
var
  Pot2, I: Integer;

begin
  Pot2 := 1;
  Result := 0;
  for I := Length(BinStr) downto 1 do
  begin
    if BinStr[i] = '1' then
      Inc(Result, Pot2);

    Pot2 := 2*Pot2;
  end;
end;

Y en todo caso, concantenar ésta con IntToHex.

// Saludos