Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3395 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado (editado)

Gentileza, post aqui o trecho que está no seu fonte ACBRBase.pas da linha 80..97, pois no SVN está assim:

Problema corrigido e disponível no SVN.
 

uses Classes, SysUtils, Contnrs, ACBrConsts, syncobjs,
     {$IFDEF COMPILER6_UP}
        Types
     {$ELSE}
        Windows, ACBrD5
     {$ENDIF}
     {$IFNDEF NOGUI}
        {$IFDEF FMX}
        ,System.UITypes
        {$ENDIF}
        {$IF DEFINED(VisualCLX)}
          ,QDialogs
        {$ELSEIF DEFINED(FMX)}
          ,FMX.Dialogs
        {$ELSE}
          ,Dialogs
       {$ENDIF}
     {$ENDIF};
[/code]
Editado por Isaque Pinheiro

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Postado

No Delphi XE3 consegui corrigir alterando o código para:

 

uses Classes, SysUtils, Contnrs, ACBrConsts, syncobjs,
     {$IFDEF COMPILER6_UP}
        Types
     {$ELSE}
        Windows, ACBrD5
     {$ENDIF}
     {$IFNDEF NOGUI}
        {$IFDEF FMX}
        ,System.UITypes
        {$ENDIF}
        {$IF DEFINED(VisualCLX)}
          ,QDialogs
        {$ELSEIF DEFINED(FMX)}
          ,FMX.Dialogs
        {$ELSE}
          ,Dialogs
       {$IFEND}

     {$ENDIF};
type

Alterando o penúltimo ENDIF para IFEND, no Delphi XE7 dessa forma também funcionou.

Postado

Não, isso da erro em outras versões, atualize que fiz a correção para todas as versões, ficou assim:


uses Classes, SysUtils, Contnrs, ACBrConsts, syncobjs,
     {$IFDEF COMPILER6_UP}
        Types
     {$ELSE}
        Windows, ACBrD5
     {$ENDIF}
     {$IFNDEF NOGUI}
        {$IF DEFINED(VisualCLX)}
          ,QDialogs
        {$ELSEIF DEFINED(FMX)}
          ,FMX.Dialogs, System.UITypes
        {$ELSE}
          ,Dialogs
       {$ENDIF}
     {$ENDIF};
[/code]

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Postado

Me desculpe, correria total aqui, já subi outra correção a que vc fez.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...