GH Freebrary para Delphi XE4

[[gatosoft]]

En XE4:

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

TMasterDataLink = class(TDetailDataLink)
TDetailDataLink = class(TDataLink)
TDataLink = class(TPersistent)

TDataSource = class(TComponent)
  private
    FDataLinks: TList< TDataLink >;
  protected
    property DataLinks: TList< TDataLink > read FDataLinks;
end;

Para el caso de la función StrLen, no compila tampoco con System.AnsiStrings.StrLen: [dcc32 Error] GHFRTL.pas(3605): E2250 There is no overloaded version of 'StrLen' that can be called with these arguments ==> solo Acepta tipos PAnsichar, PWideChar

Hice pruebas con Length y SizeOf y ambas generan el mismo resultado (21, para la definición de Digits del TFloatRec )

[[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.