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

[DieDolly]

Ich speichere eine Zahl folgendermaßen ab

Delphi-Quellcode:

Result := FloatToStrF(Num, ffNumber, 8, 0);

Auf einem englisch eingstellten Windows kommt da sowas wie 1,234 raus. Auf einem deutschen PC steht dort 1.234.
Wie kann ich diese Zahl system-unabhängig einlesen? 1.234 lässt sich mit StrToInt() auf einem deutschen Windows ohne Fehler einlesen.

[Luckie]

Ist es nicht umgekehrt? Im deutschen ist das Komma das Dezimaletrennzeichen, im englischen der Punkt. Also sollte auf einem System mit englischen Regianaleinstellungen 1.234 rauskommen.

Was ist eigentlich genau die Eingabe und ist der Trenner, die Dezimaltrennung oder die Gruppierung?

Und berücksichtigt FloatToStr nicht die Regionaleinstellungen? Das heißt, wenn in der Datenquelle 1.234 englenglsich steht und formatiert das deutsch wird 1,234 angezeigt.

[DieDolly]

Zitat:

Ist es nicht umgekehrt? Im deutschen ist das Komma das Dezimaletrennzeichen, im englischen der Punkt. Also sollte auf einem System mit englischen Regianaleinstellungen 1.234 rauskommen.

Das weiß ich nicht, ist auch egal.

Zitat:

Was ist eigentlich genau die Eingabe und ist der Trenner, die Dezimaltrennung oder die Gruppierung?

Die Eingabe ist Entweder 1.234 oder 1,234 und soll irgendwie wieder zurück in einen Integer gebracht werden. Beides ist ein Integer, keine Gleitkommazahl. Die kommen nur von unterschiedlichen Systemen.

[hoika]

Hallo,
da als Trenner ja nur Punkt oder Komma in Frage kommen,
würde ich mich für eine Variante entscheiden.

z.B. bei Punkt
StrReplace Komma durch Punkt (auf Verdacht)

und dann StrToFloatDef mit dem entsprechenden FormatSetting.
http://docs.embarcadero.com/[e-mail]

[DieDolly]

Ich begehe ohnehin einen Fehler. Die Daten die geschrieben werden dienen einer Statistik und vorher formatiere ich diese eine Zahl noch.
Das habe ich jetzt rausgenommen.

[Medium]

Ich würde Gruppentrenner komplett entfernen. In Indien z.B. gruppiert man nichtmals strikt in 3er Päckchen, sondern... äh, irgendwie anders :D

Um also universell zu ein, würde ich sämtliche Punktierung und Spaces vorab entfernen - geht bei Ints ja zum Glück recht einfach ohne was kaputt zu machen.

[Luckie]

Also ist der Punkt und das Komma die Gruppierung. Da hilft, glaube ich, nur StringReplace.

[Uwe Raabe]

Zitat:

Zitat von DieDolly (Beitrag 1455226)

1.234 lässt sich mit StrToInt() auf einem deutschen Windows ohne Fehler einlesen.

Das stimmt nicht! Das gibt einen Fehler '1.234' ist kein gültiger Integerwert.

Mit

Delphi-Quellcode:

StrToInt('1.234'.Replace('.', '').Replace(',', ''))

sollte es aber gehen - auch bei '1,234'.

[DieDolly]

Zitat:

Das stimmt nicht! Das gibt einen Fehler '1.234' ist kein gültiger Integerwert.

Komisch, bei mir nicht. 1,234 dagegen gibt genau den Fehler. Mein Trennzeichen ist standardmäßig auf , eingestellt.

[Neutral General]

Die wichtigste Frage die hier nirgendwo beantwortet wird:

Soll der Wert der Zahl 1234 oder 1,234 sein?
Ich glaube ansonsten reden wir aneinander vorbei.

[DieDolly]

Ich speichere die Zahl jetzt ohne Formatierung ab. Aber vorher war es systemabhängig ob 1.234 oder 1,234 gespeichert wurde. Intern sollte es aber als 1234 verarbeitet werden.
Das sind statistische Daten. Deswegen habe ich die Formatierung jetzt rausgenommen. Die findet jetzt woanders statt.

[stifflersmom]

Zitat:

Zitat von Neutral General (Beitrag 1455241)

Die wichtigste Frage die hier nirgendwo beantwortet wird:

Soll der Wert der Zahl 1234 oder 1,234 sein?
Ich glaube ansonsten reden wir aneinander vorbei.

Eigentlich nicht. Da ein Integer generell ja keine Nachkommastellen hat und der TE expliziet vom StrToInt spricht, reicht es doch aus, generell Kommas und Punkte aus der Zeichenkette vor dem Umwandeln zu entfernen.

[Luckie]

Deswegen wollte ich die explizit Wissen haben, ob es sich um ein Dezimaltrennzeichen oder um ein Gruppierungstrennzeichen handelt.

[Redeemer]

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.

[Uwe Raabe]

Zitat:

Zitat von Redeemer (Beitrag 1455262)

Ich frage Windows, was der Nutzer für ein Tausendertrennzeichen hat und lösche dieses, bevor ich irgendwas von String to Kommazahl umwandel.

Das funktioniert aber auch nicht immer, wenn die Datei auf einem anderen Windows erzeugt wurde.

[DieDolly]

Zitat:

Das funktioniert aber auch nicht immer, wenn die Datei auf einem anderen Windows erzeugt wurde.

Deswegen speichere ich sie jetzt ohne rumzufummeln ab.

[Ydobon]

Wenn für Nachkommastellen Null angegeben ist, dann können es doch eigentlich nur Tausendertrenner sein.

[Luckie]

Ist mittlerweile alles geklärt.

[DieDolly]

Zitat:

Wenn für Nachkommastellen Null angegeben ist

Es ist aber keine Dezimalzahl.

[Codehunter]

Zitat:

Zitat von Luckie (Beitrag 1455283)

Ist mittlerweile alles geklärt.

Nicht ganz...

Zitat:

Zitat von Luckie (Beitrag 1455228)

Also sollte auf einem System mit englischen Regianaleinstellungen 1.234 rauskommen.

Was hat dich nur zu diesem Freudschen Vertipper gebracht? :lol:

So, Thema fertig. Deckel zu und Licht aus. 8-)

[Dennis07]

Wieso denn nicht einfach, so wie vorgesehen, mit den Formateinstellungen arbeiten?

Unter XE2 oder neuer:

Delphi-Quellcode:

1.234.ToString(TFormatSettings.Invariant) // Ergibt '1.234', auch auf deutschen Systemen

Zwischen D2009 und XE2 musstest du die FormatSettings-Variable zwischenspeichern, bearbeiten und wiederherstellen, und dort manuell den DezimalSeparator auf

Delphi-Quellcode:

'.'

setzen.
Vor 2009 kenne ich keine Möglichkeit mehr, wie das ging, weil ich mit so alten Versionen schon seit Jahren nicht mehr arbeite.

[Bbommel]

Zitat:

Zitat von Dennis07 (Beitrag 1455360)

Wieso denn nicht einfach, so wie vorgesehen, mit den Formateinstellungen arbeiten?

Unter XE2 oder neuer:

Delphi-Quellcode:

1.234.ToString(TFormatSettings.Invariant) // Ergibt '1.234', auch auf deutschen Systemen

Schönes Beispiel, wie einem ein Thread, der eigentlich schon durch ist und in den ich nur mal so reingeklickt habe, einen total guten Hinweis gibt, weil da ein "neues" Feature seit Jahren an mir vorbeigegangen ist.

Ich benutze immer noch treudoof eine lokale TFormatSettings-Variable und setze den Decimalseperator auf "." und den ThousendSeperator auf ",". Dieses TFormatSettings.Invariant ist ziemlich cool, da werde ich mal ein paar Stellen im Code aufräumen können. :-)

[Dennis07]

Zitat:

Zitat von Bbommel (Beitrag 1455398)

Schönes Beispiel, wie einem ein Thread, der eigentlich schon durch ist und in den ich nur mal so reingeklickt habe, einen total guten Hinweis gibt, weil da ein "neues" Feature seit Jahren an mir vorbeigegangen ist.

Ich benutze immer noch treudoof eine lokale TFormatSettings-Variable und setze den Decimalseperator auf "." und den ThousendSeperator auf ",". Dieses TFormatSettings.Invariant ist ziemlich cool, da werde ich mal ein paar Stellen im Code aufräumen können. :-)

Danke, haha. Wenns dir hilft. Hatte mich wirklich verwundert dass das hier noch keiner geschrieben hatte, weil es eigentlich in heutigen Delphi-Versionen der offiziell vorgeschlagene Weg ist. :-D