Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Fehler in Zint QR-EPC-Code

   
    by WoGe, 10. Mai 2021
  Hi
  Wo er Recht hat hat er Recht:
  
  function TForm1.AmountStr: string;
  var
  formatSettings : TFormatSettings;
  begin
  formatSettings := TformatSettings.Create(LOCALE_SYSTEM_DEFAULT);
  formatSettings.ThousandSeparator := Char(0);
  formatSettings.DecimalSeparator := Char('.');
• Forum: Programmieren allgemein

  Fehler in Zint QR-EPC-Code

   
    by WoGe, 10. Mai 2021
  Die Formatierung des Amount Strings in der Zint OREPC-Lib ist bei mir bei Beträgen über 1000€ falsch.
  
  Es ist möglich das ich etwas (noch) nicht gefunden habe um das Problem anders zu beheben.
  Folgender Code löst das Problem zumindest auf meinem Rechner:
  (Die Ausgeremten Zeilen sind der Original-Code)
  
  function TZintEPCQR.GetAmountAsString: String;
  var s : string;
  l : Integer;
  begin