Komma/Punkt

**arukas**

Hi Leute,

Wie kann ich einen Wert in eine Variable einspeichern ohne zu wissen, ob der User "," oder "." benutzt hat.

Also so ungefair.....

markieren

Code:

			VAR abc:real;

Edit1.Text := '1,23';

abc := strToInt(edit1.text);

Edit1.Text := '1.23';

abc := strToInt(edit1.text);

**SirThornberry**

also mit StrToInt gar nicht weil eine Zahl mit einem Nachkommaanteil kein Integer sondern ein Floatwert ist. Ansonsten kannst du mit StringReplace einfach Punkt und Komma durch DecimalSeperator ersetzen.

**mkinzler**

Oder die Konstante kurzzeitig Umstellen.

**Sidorion**

FloatToStr und StrToFloat haben ein Version mit Ländereinstellungen. Dies wurde schon mehrfach im Forum besprochen. Bemühe doch bitte die Suche und/oder die Online Hilfe

Zitat von Sidorion:

FloatToStr und StrToFloat haben ein Version mit Ländereinstellungen. Dies wurde schon mehrfach im Forum besprochen. Bemühe doch bitte die Suche und/oder die Online Hilfe

... erst ab Delphi 6, spätestens Delphi 7. Ich harbeite meistens noch mit Delphi 5 - daher hätte ich keine Chance. Da der Poster seine Delphi Version nicht angegeben hat und vielleicht sogar schon die anderen Lösungen gefunden hatte: woher weisst, dass ihm das wirklich hilft?

**arukas**

hi leute,

danke für eure Hilfe...

Ich hab es jetzt folgendermaßen gelöst:

- DecimalSeperator := '.';
- alle Kommas in Punke umgeformt

Es ist jetzt also egal, ob man Komma oder Punkt benutzt.

Vielen Dank,

Arukas

**mkinzler**

Zitat von arukas:

hi leute,

danke für eure Hilfe...

Ich hab es jetzt folgendermaßen gelöst:

- DecimalSeperator := '.';
- alle Kommas in Punke umgeformt

Es ist jetzt also egal, ob man Komma oder Punkt benutzt.

Vielen Dank,

Arukas

Übrigens, das meinte ich in #3

**OldGrumpy**

Und was machst Du mit gemischten Eingaben mit Tausendertrennzeichen?

Also zum Beispiel 1.200,65 oder 1,350,723.23?

**mkinzler**

Zitat:

Und was machst Du mit gemischten Eingaben mit Tausendertrennzeichen?

Zusätzlich die Konstante ThousandSeparator setzen,

**webcss**

kannst natürlich auch in OnKeyPress jedes Komma = in Punkt wandeln....

Komma/Punkt

Komma/Punkt

Re: Komma/Punkt

Re: Komma/Punkt

Re: Komma/Punkt

Re: Komma/Punkt

Re: Komma/Punkt

Re: Komma/Punkt

Re: Komma/Punkt

Re: Komma/Punkt

Re: Komma/Punkt

Forumregeln

arukas Registriert seit: 14. Mär 2006 40 Beiträge	#1 Komma/Punkt 23. Jan 2007, 19:56 Hi Leute, Wie kann ich einen Wert in eine Variable einspeichern ohne zu wissen, ob der User "," oder "." benutzt hat. Also so ungefair..... markieren Code: VAR abc:real; Edit1.Text := '1,23'; abc := strToInt(edit1.text); Edit1.Text := '1.23'; abc := strToInt(edit1.text);
	Zitat

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#2 Re: Komma/Punkt 23. Jan 2007, 19:57 also mit StrToInt gar nicht weil eine Zahl mit einem Nachkommaanteil kein Integer sondern ein Floatwert ist. Ansonsten kannst du mit StringReplace einfach Punkt und Komma durch DecimalSeperator ersetzen. Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.861 Beiträge Delphi 11 Alexandria	#3 Re: Komma/Punkt 24. Jan 2007, 09:06 Oder die Konstante kurzzeitig Umstellen. Markus Kinzler
	Zitat

Sidorion Registriert seit: 23. Jun 2005 403 Beiträge	#4 Re: Komma/Punkt 24. Jan 2007, 10:00 FloatToStr und StrToFloat haben ein Version mit Ländereinstellungen. Dies wurde schon mehrfach im Forum besprochen. Bemühe doch bitte die Suche und/oder die Online Hilfe Manchmal sehen Dinge, die wie Dinge aussehen wollen mehr wie Dinge aus, als Dinge <Esmerelda Wetterwachs>
	Zitat

arukas Registriert seit: 14. Mär 2006 40 Beiträge	#6 Re: Komma/Punkt 27. Jan 2007, 21:14 hi leute, danke für eure Hilfe... Ich hab es jetzt folgendermaßen gelöst: - DecimalSeperator := '.'; - alle Kommas in Punke umgeformt Es ist jetzt also egal, ob man Komma oder Punkt benutzt. Vielen Dank, Arukas
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.861 Beiträge Delphi 11 Alexandria	#7 Re: Komma/Punkt 27. Jan 2007, 21:15 Zitat von arukas: hi leute, danke für eure Hilfe... Ich hab es jetzt folgendermaßen gelöst: - DecimalSeperator := '.'; - alle Kommas in Punke umgeformt Es ist jetzt also egal, ob man Komma oder Punkt benutzt. Vielen Dank, Arukas Übrigens, das meinte ich in #3 Markus Kinzler
	Zitat

OldGrumpy Registriert seit: 28. Sep 2006 Ort: Sandhausen 941 Beiträge Delphi 2006 Professional	#8 Re: Komma/Punkt 27. Jan 2007, 22:23 Und was machst Du mit gemischten Eingaben mit Tausendertrennzeichen? Also zum Beispiel 1.200,65 oder 1,350,723.23? "Tja ja, das Ausrufezeichen... Der virtuelle Spoiler des 21. Jahrhunderts, der Breitreifen für die Datenautobahn, die k3wle Sonnenbrille fürs Usenet. " (Henning Richter)
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.861 Beiträge Delphi 11 Alexandria	#9 Re: Komma/Punkt 27. Jan 2007, 23:02 Zitat: Und was machst Du mit gemischten Eingaben mit Tausendertrennzeichen? Zusätzlich die Konstante ThousandSeparator setzen, Markus Kinzler
	Zitat

webcss Registriert seit: 10. Feb 2006 255 Beiträge Delphi XE2 Professional	#10 Re: Komma/Punkt 27. Jan 2007, 23:41 kannst natürlich auch in OnKeyPress jedes Komma = in Punkt wandeln.... "Wer seinem Computer Mist erzählt, muss immer damit rechnen..." (unbekannt) "Der Computer rechnet damit, dass der Mensch denkt..." (auch unbekannt) mein blog
	Zitat