GH Freebrary para Delphi XE4

[[Al González]]

Empezado por gatosoft

Código Delphi [-]
  TFloatRec = packed record
    Exponent: Smallint;
    Negative: Boolean;
    Digits: array[0..20] of Byte;
  end;

Para el caso de la función StrLen [...] solo acepta tipos PAnsichar, PWideChar

Sí, claro está. Tenía la ligera sospecha de que habían cambiado la declaración de TFloatRec, pero consideré que era poco probable. Siendo así, creo que faltaría moldear Digits como PANSIChar en el par de referencias antes citadas:

Código Delphi [-]
          Result := Integer (System.ANSIStrings.StrLen (PANSIChar (@Digits))) - Exponent

Código Delphi [-]
        If (Decimals < MaxInt) And (Integer (System.ANSIStrings.StrLen (PANSIChar (@Desc.Digits))) -
        Desc.Exponent <= Decimals) Then

Hasta XE2 (o XE3), TFloatRec tenía esta declaración:

Código Delphi [-]
  TFloatRec = packed record
    Exponent: Smallint;
    Negative: Boolean;
    Digits: array[0..20] of AnsiChar;
  end;

Gracias por confirmar el funcionamiento de los cambios.

Saludos.