ACBR e Delphi Unicode

[Alice]

Prezados do Projeto ACBR,

Migrei o projeto do Delphi 7 p/ o Delphi XE3.
Ao fazer o Build, percebi que são listados vários warnings nas units do ACBR.
Ex:

[dcc32 Warning] pcnGerador.pas(374): W1057 Implicit string cast from 'AnsiString' to 'string'

[dcc32 Warning] pcnGerador.pas(624): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'

[dcc32 Warning] pnfsNFSeR.pas(976): W1050 WideChar reduced to byte char in set expressions.  Consider using 'CharInSet' function in 'SysUtils' unit.

Isso pode afetar os dados?
Grata

[Daniel Simoes]

Nao... eles já estão aí faz um tempo...

Se não me engano, há uma diretiva em ACBr.inc, para desligar esses warnings 

[Daniel Simoes]

Achei...

// Para Remover Warnings de CAST causados por WideString/String/AnsiString, descomente a linha abaixo. (Apenas Delphi)
{.$DEFINE REMOVE_CAST_WARN}     

 

[Juliomar Marchetti]

7 horas atrás, Alice disse:

Prezados do Projeto ACBR,

Migrei o projeto do Delphi 7 p/ o Delphi XE3.
Ao fazer o Build, percebi que são listados vários warnings nas units do ACBR.
Ex:

[dcc32 Warning] pcnGerador.pas(374): W1057 Implicit string cast from 'AnsiString' to 'string'

[dcc32 Warning] pcnGerador.pas(624): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'

[dcc32 Warning] pnfsNFSeR.pas(976): W1050 WideChar reduced to byte char in set expressions.  Consider using 'CharInSet' function in 'SysUtils' unit.

Isso pode afetar os dados?
Grata

Se usar o instalador ele tem uma opção que basta marcar ou desmarcar.

5 horas atrás, Daniel Simoes disse:

Achei...

// Para Remover Warnings de CAST causados por WideString/String/AnsiString, descomente a linha abaixo. (Apenas Delphi)
{.$DEFINE REMOVE_CAST_WARN}     

 

 

[Emerson Teixeira]

Fiz alguns ajustes nas units que causavam Warnings e hints no delphi tokyo se alguém puder revisar e subir os fontes..

trunk2.rar

[Emerson Teixeira]

No ACBr.inc adicionei mais uma diretiva de compilação, para desativar warnings de funções exclusivas de uma determinada plataforma

{$IFDEF REMOVE_CAST_WARN}
  {$WARN IMPLICIT_STRING_CAST OFF}
  {$WARN IMPLICIT_STRING_CAST_LOSS OFF}
  {$WARN SYMBOL_DEPRECATED OFF}
  {$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}

[Daniel Simoes]

Em analise... Muito obrigado

 

[Daniel Simoes]

Prefiro não acatar algumas coisas, pois poderiam causar Warnings em FPC... Como por exemplo a atribuição de "Result",  no inicio dos métodos de ACBrSAT....

o que faz ?

{$WARN DUPLICATE_CTOR_DTOR OFF}

 

Esse tipo de notação de Unit não é aceita por D7 ou FPC

 System.Contnrs

[Emerson Teixeira]

14 minutos atrás, Daniel Simoes disse:

Prefiro não acatar algumas coisas, pois poderiam causar Warnings em FPC... Como por exemplo a atribuição de "Result",  no inicio dos métodos de ACBrSAT....

o que faz ?

{$WARN DUPLICATE_CTOR_DTOR OFF}

 

Esse tipo de notação de Unit não é aceita por D7 ou FPC

 System.Contnrs

Olá Daniel.

Sobre o result, se atrubuir um valor que não será usado, antes do result receber outro valor o delphi gera warnings, por este motivo que comentei as atribuições dos results no inicio do método.

sobre {$WARN DUPLICATE_CTOR_DTOR OFF}, no delphi quando tem 2 constructor com nomes diferentes e parametros iguais isso gera um warning, que é o caso da unit ACBrDFeException, acredito que poderia incluir no ACBr.inc como abaixo

{$IFDEF REMOVE_CAST_WARN}
  {$WARN IMPLICIT_STRING_CAST OFF}
  {$WARN IMPLICIT_STRING_CAST_LOSS OFF}
  {$WARN SYMBOL_DEPRECATED OFF}
  {$WARN SYMBOL_PLATFORM OFF}
  {$WARN DUPLICATE_CTOR_DTOR OFF}
{$ENDIF}

 

att, abraços

sobre o System.Contnrs o delphi deve ter colocado automaticamente, pois nao me lembro de ter adicionado esta unit

 

[Daniel Simoes]

4 minutos atrás, Emerson Teixeira disse:

Sobre o result, se atrubuir um valor que não será usado, antes do result receber outro valor o delphi gera warnings, por este motivo que comentei as atribuições dos results no inicio do método.

Acredito que ele gere "Hints", correto ?  Hints são opcionais... eu acho que o código fica mais seguro e legível, com a atribuição de um Result no inicio do método...

As modificações na Synapse, preciso avaliar com mais calma... tento manter ela, o mais possível perto dos fontes originais... (embora a tempos o autor original, não faça melhorias nos fontes)

6 minutos atrás, Emerson Teixeira disse:

sobre {$WARN DUPLICATE_CTOR_DTOR OFF}, no delphi quando tem 2 constructor com nomes diferentes e parametros iguais isso gera um warning, que é o caso da unit ACBrDFeException, acredito que poderia incluir no ACBr.inc como abaixo

Em qual método isso ocorre ? Como é o construtor original, em seu Delphi ?

[Emerson Teixeira]

 

37 minutos atrás, Daniel Simoes disse:

Acredito que ele gere "Hints", correto ? 

Sim...

 

37 minutos atrás, Daniel Simoes disse:

Hints são opcionais... eu acho que o código fica mais seguro e legível, com a atribuição de um Result no inicio do método...

por mim sem problemas... mas o intuito seria remover hints e warnings na medida do possível rsrs..

 

1 hora atrás, Daniel Simoes disse:

sobre {$WARN DUPLICATE_CTOR_DTOR OFF}

1 hora atrás, Daniel Simoes disse:

Em qual método isso ocorre ?

CreateDef.

 

1 hora atrás, Daniel Simoes disse:

Como é o construtor original, em seu Delphi ?

Create

 

note que o warning ocorre apenas quando compilo para 64 bits...

att

[Emerson Teixeira]

Boa tarde Daniel.

Fiz mais algumas alterações nos fontes visando a remoção de warnings e hints.

Desta vez alterei o ACBr.inc e adicionei a diretiva {$I ACBr.inc} nas units sem a referência ao inc. Dessa forma que quiser desativar basta alterar o inc.

att.

 

trunk2.rar

Editado 21 Dezembro, 2017 por Emerson Teixeira

[Emerson Teixeira]

Bom dia.

mais ajustes

att

trunk2.rar

[Daniel Simoes]

Devemos mesmo desligar tudo isso ?

  {$WARN USE_BEFORE_DEF OFF}        	// quando atribui valor à uma variável e este não é usado no decorrer da function/procedure
  {$WARN TYPEINFO_IMPLICITLY_ADDED OFF}	// http://docwiki.embarcadero.com/RADStudio/Tokyo/en/W1055_Published_caused_RTTI_($M%2B)_to_be_added_to_type_%27%25s%27_(Delphi)
  {$WARN WIDECHAR_REDUCED OFF}          // quando compara string com char ex: (if sOperacao[1] in ['A', 'B'] then) 	
  {$HINTS OFF}							// para remover hints de variáveis/funções que foram declarados e nao usados e outros hints

me parece que isso poderá ocultar alguns Hints válidos...

[EMBarbosa]

11 minutos atrás, Daniel Simoes disse:

{$HINTS OFF} // para remover hints de variáveis/funções que foram declarados e nao usados e outros hints

Isso nunca deveria ser aplicado. Você está desligando os hints do compilador.

Não tem sentido o time que trabalha no compilador adicionar as hints que todo mundo ignora.

[Emerson Teixeira]

35 minutos atrás, Daniel Simoes disse:

Devemos mesmo desligar tudo isso ?

  {$WARN USE_BEFORE_DEF OFF}        	// quando atribui valor à uma variável e este não é usado no decorrer da function/procedure
  {$WARN TYPEINFO_IMPLICITLY_ADDED OFF}	// http://docwiki.embarcadero.com/RADStudio/Tokyo/en/W1055_Published_caused_RTTI_($M%2B)_to_be_added_to_type_%27%25s%27_(Delphi)
  {$WARN WIDECHAR_REDUCED OFF}          // quando compara string com char ex: (if sOperacao[1] in ['A', 'B'] then) 	
  {$HINTS OFF}							// para remover hints de variáveis/funções que foram declarados e nao usados e outros hints

me parece que isso poderá ocultar alguns Hints válidos...

Olá Daniel.

isso foi apenas uma sugestão, pois você comento que não quer alterar as units de terceiros...

Acredito que estas diretivas deveriam ser incluídas no ACBr.inc  comentadas, seria opcional ativá-las (critério de cada um), ou então alterar a units onde os hints e wanings ocorrem (me disponho a fazer esta parte se for o caso).

[Daniel Simoes]

Bom... como sou usuário de Lazarus... ficou pouco a vontade para acatar essas sugestões que afetariam o Delphi...

Vou deixar a cargo do @EMBarbosa e @Waldir Paim

[Emerson Teixeira]

19 minutos atrás, EMBarbosa disse:

Isso nunca deveria ser aplicado. Você está desligando os hints do compilador.

Não tem sentido o time que trabalha no compilador adicionar as hints que todo mundo ignora.

Ola EMBarbosa, 

concordo plenamente com você, fiz esta sugestão, pois o Daniel disse que não pretende alterar as units de terceiros, note que adicionei apenas a referência ao ACBr.inc nessas units, tentando alterar o minimo possível, mas se for o caso de alterá-las ajudarei no que for possível.

att

[EMBarbosa]

42 minutos atrás, Emerson Teixeira disse:

Ola EMBarbosa, 

concordo plenamente com você, fiz esta sugestão, pois o Daniel disse que não pretende alterar as units de terceiros, note que adicionei apenas a referência ao ACBr.inc nessas units, tentando alterar o minimo possível, mas se for o caso de alterá-las ajudarei no que for possível.

att

As alterações nas units de terceiros geralmente devem ser direcionadas a eles. Por exemplo, se tem alguma sugestão no Fortes, seria melhor direcionar ao projeto Fortes. O mesmo caso para as units do projeto Synapse.

Com respeito a outras alterações e hints, a melhor maneira é analisar cada caso separadamente. Assim eu sugiro você criar um tópico diferente para analisar cada tipo de caso.

Se você postar a função em questão, qual o warning que está sendo gerado, quais as alterações sugeridas e os motivos, podemos discutir.

Depois de um caso estabelecido, outros códigos semelhantes podem ser alterados seguindo o modelo.