Componente AcbrOFX

Nelson Santos · 11 Maio

Boa noite,

Mais uma vez foi necessário alterar o componente.

Na parte onde converte o valor de String para Float:

Alterado de:

oItem.Value := StrToFloat(Amount);

Para:

{$IF CompilerVersion > 21.0} // VERSÕES SUPERIORES AO DELPHI 2010, É NECESSÁRIO INICIALIZAR ...
fs:=TFormatSettings.Create('pt-BR');
GetLocaleFormatSettings(GetThreadLocale(),fs);
{$IFEND}

fs.DecimalSeparator:=',';
oItem.Value := StrToFloat(Amount, fs);

Esta alteração foi necessária porque, dependendo das configurações dos sistema, a Função StrToFloat somente consegue converter com Ponto Decimal, mas aqui, no componente, está tentando a conversão com Vírgula Decimal. Assim, foi necessário reconfigurar o TFormatSettings para usar Vírgula na função StrToFloat.

Segue anexo novo AcbrOFX.pas

ACBrOFX.pas

Editado 11 Maio por Nelson Santos
Citada no texto