[donald shimoda]

Empezado por egostar

Hola

Tal vez te puede servir esto

http://www.merlyn.demon.co.uk/programs/hexfloat.pas

Salud OS

Gracias amigo, con esa librería estoy luchando sin éxito hasta ahora. Quizas sea la hora pero nada...

Probe otra librería con este código:

Código Delphi [-]
  FUNCTION HexToDouble(CONST hex:  STRING):  DOUBLE;
    VAR
      d      :  DOUBLE;
      Overlay:  ARRAY[1..2] OF LongInt ABSOLUTE d;
  BEGIN
    IF   LENGTH(hex) <> 16
    THEN raise EIEEEMath.Create('Invalid hex string for HexToDouble');

    Overlay[1] := StrToInt('$' + COPY(hex, 9, 8));
    Overlay[2] := StrToInt('$' + Copy(hex, 1, 8));

    RESULT := d
  END {HexToDouble};

Es para un string de entrada de 16 chars, 8 bytes, no encuentro la manera de pasarlo a 8 chars, 4 bytes de entrada. Mañana me pondré a leer.

Gracias nuevamente.