Einzelnen Beitrag anzeigen

Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.018 Beiträge
 
Delphi 2009 Professional
 
#14

AW: StrToInt('1,234') gibt es da was für?

  Alt 15. Jan 2020, 18:31
Ich frage Windows, was der Nutzer für ein Tausendertrennzeichen hat und lösche dieses, bevor ich irgendwas von String to Kommazahl umwandel.
Delphi-Quellcode:
function StrToCurrLocal(const s: string): Currency;
begin
  Result := StrToCurr(StringReplace(s, GetLocaleChar(GetThreadLocale(), LOCALE_STHOUSAND, #0), '', [rfReplaceAll]));
end;
Extended analog.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat