Vilmar Silveira de Freitas
Membros-
Total de ítens
7 -
Registro em
-
Última visita
-
Days Won
1
Vilmar Silveira de Freitas last won the day on 22 Abril 2022
Vilmar Silveira de Freitas had the most liked content!
Últimos Visitantes
412 visualizações
Vilmar Silveira de Freitas's Achievements
-
Negativo, não há modificações nos códigos ACBr (revision 25190) Retirados todas os caminhos do ACBr tanto no LibPath como no SearchPath. Porém ao utilizar o instalador "ACBrInstall_Trunk2.exe", ele próprio recria os paths, tanto no LibPath como no SearchPath. Vou testar num computador novo, com o Delphi 2005 recém instalado (sem nenhum componente externo) e retorno com mais informações.
-
Confirmando que funcionou a correção do erro nos fontes ACBrSerial: - Modificando as chamadas de CharInSet para ACBrUtil.Compatibilidade.CharInSet; - Incluindo nas uses ACBrUtil.Compatibilidade. Seguem os códigos-fontes modificados do ACBrSerial para testes. Porém ainda há erros nos demais fontes, conforme Log em anexo (compilado até o pacote ACBrBoletos). ACBrSerial.zip log_Delphi_2005_Win32.txt
-
Complementando... Última revision compilável: 25036 Revision 25037 Erro: E2003 Undeclared identifier: 'CharInSet' Revision 25176 Error: E2251 Ambiguous overloaded call to 'CharInSet' Conforme logs anexados: log_Delphi_2005_Win32 - REVISÃO 25036.txt log_Delphi_2005_Win32 - REVISÃO 25037.txt log_Delphi_2005_Win32 - REVISÃO 25176.txt
-
Boa tarde. 1. Não há a função CharInSet no Delphi 2005, verificado na unit SysUtils.pas; 2. Não há a função CharInSet em outro lugar nos nossos códigos-fonte; 3. Somente há a função CharInSet nos fontes do ACBr, especificamente nas units: ACBr.inc (linha 167) {$IFDEF DELPHI2009_UP} {$DEFINE HAS_CHARINSET} {$DEFINE USE_JSONDATAOBJECTS_UNIT} {$ENDIF} ACBrUtil.pas (linha 140) {$IfNDef HAS_CHARINSET} function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; overload; deprecated {$IfDef SUPPORTS_DEPRECATED_DETAILS} 'Use o método da Unit ACBrUtil.Compatibilidade.pas' {$ENDIF}; function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean; overload; deprecated {$IfDef SUPPORTS_DEPRECATED_DETAILS} 'Use o método da Unit ACBrUtil.Compatibilidade.pas' {$ENDIF}; {$EndIf} ACBrUtil.Compatibilidade (linha 102) {$IfNDef HAS_CHARINSET} function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; overload; function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean; overload; {$EndIf}