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