Erro de compilação em Delphi 10.4 Sydney: cutoff de CompilerVersion incorreto em GetIntegerVariable/SetIntegerVariable (Horse.Provider.RawAdapters.pas) #531
Closed
javouexpress-eng
started this conversation in
General
Replies: 1 comment
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Uh oh!
There was an error while loading. Please reload this page.
Erro de compilação em Delphi 10.4 Sydney: cutoff de CompilerVersion incorreto em GetIntegerVariable/SetIntegerVariable (Horse.Provider.RawAdapters.pas) Ao compilar no Delphi 10.4 Sydney (CompilerVersion = 34.0), a unit Horse.Provider.RawAdapters.pas gera os seguintes erros: [dcc32/dcc64 Error] Horse.Provider.RawAdapters.pas: E2037 Declaration of 'GetIntegerVariable' differs from previous declaration
[dcc32/dcc64 Error] Horse.Provider.RawAdapters.pas: E2037 Declaration of 'SetIntegerVariable' differs from previous declaration
[dcc32/dcc64 Fatal Error] Horse.Core.Param.Header.pas: F2063 Could not compile used unit 'Horse.Provider.RawAdapters.pas' Causa: o código usa {$IF CompilerVersion >= 32.0} para decidir se GetIntegerVariable/SetIntegerVariable devem retornar Int64 ou Integer: {$IF CompilerVersion >= 32.0} // Delphi 10.2 Tokyo+
function GetIntegerVariable(Index: Integer): Int64; override;
{$ELSE}
function GetIntegerVariable(Index: Integer): Integer; override;
{$IFEND} Correção testada e funcionando (5 ocorrências no arquivo — 2 na interface, 3 na implementation, cobrindo GetIntegerVariable em TInterfacedWebRequest, e GetIntegerVariable/SetIntegerVariable em TInterfacedWebResponse): {$IF CompilerVersion >= 35.0} // Delphi 11 Alexandria+
All reactions