GH Freebrary para Delphi XE4

[[Al González]]

Hoy me disponía a comenzar la adaptación de GH Freebrary a Delphi XE4, usando la edición de prueba de éste último que descargué hace más de un mes, y pensando que me serviría un nuevo número de serie que me llegó de Embarcadero para ampliar el plazo acostumbrado de 30 días. Pero me di cuenta que este segundo número era válido sólo hasta el 30 de junio.



Así las cosas, creo que me tardé un poco en comenzar con esta labor, y es que entre los asuntos de cada día no fue mucho lo que pude ver de la nueva versión en tan pocas semanas.

¿Podría algún compañero darme acceso a una computadora / ordenador con Delphi XE4? No importa si es la versión de prueba (aunque eventualmente podría ser necesaria la versión normal que incluye el código fuente de la VCL). En este momento no está en mis posibilidades comprar la licencia.

De todas formas dejo abierto este hilo para los interesados en comenzar a probar o adaptar GHF en XE4, y las dudas que de ello surjan. Con ese fin pueden tomar la más reciente versión para XE2, que seguramente será compatible casi al 100%.

Saludos y muchas gracias.

Al González.

[Casimiro Notevi]

Un software tan amplio como Delphi es imposible de probar en 30 días , es un tiempo ridículo, deberían dar un margen de varios meses, como mínimo.

[cloayza]

Empezado por Casimiro Notevi

... deberían dar un margen de varios meses, como mínimo.

Estoy de acuerdo, creo que con 36 meses estariamos bien...

[Casimiro Notevi]

Empezado por cloayza

Estoy de acuerdo, creo que con 36 meses estariamos bien...

Sí, eso como mínimo

[[Al González]]

Para cerrar el paréntesis de cuántos días para probar una nueva versión de Delphi sería lo adecuado, 30 no me parece mal. Pero que fueran 30 días en los cuales se haya abierto el IDE, consecutivos o no: sin contar aquellos en que no haya habido tiempo de sentarse a revisar característica alguna.

-------------

Bien, ¿alguna novedad en el tema? ¿Alguien que haya instalado GHF en XE4 y que desee colaborar en el proyecto aunque sea reportando las incidencias?

Saludos.

[[gatosoft]]

Pues si no es tarde aún para reportar incidencias, partiendo de la versión XE2 genera los siguientes errores:

en GHFVCL:

Código Delphi [-]
  Function ghMasterLink (Const ADataSet :TDataSet) :TMasterDataLink;
  Var
    I :Integer;
  Begin
    { In some data set classes, the master data link is a private field
      without access property.  This function returns that data link. }

    If ADataSet.DataSource <> Nil Then
      With TDataSourceAccess (ADataSet.DataSource) Do
        For I := 0 To DataLinks.Count - 1 Do
          If (TDataLink (DataLinks [i]) Is TMasterDataLink) And
          (TMasterDataLinkAccess (DataLinks [i]).GetDetailDataSet =
          ADataSet) Then
          Begin
            // DataSet's master data link found
            Result := DataLinks [i]; //[dcc32 Error] GHFVCL.pas(1005): E2010 Incompatible types: 'TMasterDataLink' and 'TDataLink'
            Exit;
          End;

    Result := Nil;
  End;

En GHFRTL:

Código Delphi [-]
  Function ghDecimals (Const Value :Extended) :Integer;
  Begin
    If Frac (Value) <> 0 Then
      With ghDecimal (Value) Do
        { When Frac (Value) <> 0 and Exponent < 18, StrLen (Digits) is
          greater than Exponent.  StrLen (Digits) - Exponent =
          "represented" decimals in Value. }
        If Exponent < 18 Then
          Result := Integer (StrLen (Digits)) - Exponent //[dcc32 Error] GHFRTL.pas(3601): E2250 There is no overloaded version of 'StrLen' that can be called with these arguments
                                                                        //[dcc32 Warning] GHFRTL.pas(3601): W1000 Symbol 'StrLen' is deprecated: 'Moved to the AnsiStrings unit'
        Else
          Result := 0  // Value has no "represented" decimals
    Else
      Result := 0;
  End;

Código Delphi [-]
  Function ghFracDecimal (Const Value :Extended;
    Decimals :Integer = MaxInt) :Extended;
  Var
    Buffer :PANSIChar Absolute Result;
    Desc :TFloatRec;  // Decimal descriptor
  Begin
    { Frac (-123.0045) -> -0.0044999...
      ghFracDecimal (-123.0045) -> -0.0045 }

    Result := Frac (Value);

    If Result = 0 Then
      Exit;

    { If Value is not a fraction but has fractional part, then we try to
      get it based on its decimal representation }
    If Abs (Value) > 1 Then
    Begin
      Desc := ghDecimal (Value);

      { When Frac (Value) <> 0 and Exponent < 18, StrLen (Digits) is
        greater than Exponent.  StrLen (Digits) - Exponent = "represented"
        decimals in Value.  If Exponent >= 18 then Value has no
        "represented" decimals. }
      If Desc.Exponent < 18 Then
      Begin

        If (Decimals < MaxInt) And (Integer (StrLen (Desc.Digits)) - //[dcc32 Error] GHFRTL.pas(4256): E2250 There is no overloaded version of 'StrLen' that can be called with these arguments
        Desc.Exponent <= Decimals) Then
          Decimals := MaxInt;

        { -123.0045, Digits = ['1', '2', '3', '0', '0', '4', '5', #0...] ->
          ['1', '-', '.', '0', '0', '4', '5', #0...], Buffer = '-.0045'.
          NOTE: This operation can overwrite the Desc's Exponent and
          Negative fields. ---------------------------------------------- }

        Buffer := PANSIChar (@Desc.Digits) + (Desc.Exponent - 2);

        If Desc.Negative Then
          Buffer [0] := '-'
        Else
          Inc (Buffer);

        Buffer [Byte (Buffer [0] = '-')] :=
          ghANSIChr (FormatSettings.DecimalSeparator);

        //-----------------------------------------------------------------

        TextToFloat (Buffer, Result, fvExtended);  // '-.0045' -> -0.0045
      End;
    End;

    If Decimals < MaxInt Then
      Result := ghRound (Result, Decimals);
  End;

Saludos,