Fehler in Zint QR-EPC-Code

[WoGe]

Hi
Wo er Recht hat hat er Recht:

Delphi-Quellcode:

function TForm1.AmountStr: string;
var
  formatSettings : TFormatSettings;
begin
  formatSettings := TformatSettings.Create(LOCALE_SYSTEM_DEFAULT);
  formatSettings.ThousandSeparator := Char(0);
  formatSettings.DecimalSeparator := Char('.');
  formatSettings.CurrencyString := '';
  Result :=  'EUR'+CurrToStrF(myCurrency, ffCurrency, 2, formatSettings);
end;

So gehts auch und ist eleganter
Ich baue das gleich mal in die Lib ein

Danke für den Hinweis

Edit:
Das hier ist die geprüfte Ersatzroutine für die Lib:

Delphi-Quellcode:

function TZintEPCQR.GetAmountAsString: String;
var
  formatSettings : TFormatSettings;
begin
  formatSettings := TformatSettings.Create(LOCALE_SYSTEM_DEFAULT);
  formatSettings.ThousandSeparator := Char(0);
  formatSettings.DecimalSeparator := Char('.');
  formatSettings.CurrencyString := '';
  Result := ('EUR'+CurrToStrF(FAmount, ffCurrency, 2, formatSettings)).TrimRight;
end;