Umwandeln eines , zu . für Berechnung

[Lotus]

wie ihr sicher alle wisst ist eine zahl mit einem Komma (,) für delphi keine zahl
kurz gesagt 3,5 = string und 3.5 Fließkommazahl
ich moechte jetzt.. das das , automatisch für delphi zu einem . umgewandelt wird..

ich dacht mir das man das über eine schleife z.B. so machen könnte

Delphi-Quellcode:

var i:integer; //Zählervariable

for i:=1 to length(wort) do begin
if wort[i] = ',' then ????
else Inc(i);
end;

ich weiss nich ob das so funktioniert und dann weiss ich auch nich wie ich das , zu einem . machen soll...
vllt habt ihr einen tipp oder eine idee wie man das realisieren könnte?

[Dax]

StringReplace

[grenzgaenger]

was willste, eine string in eine dezimalzahl konvertieren?

strtofloat

berücksichtigt die einstellung decimalpoint, aus deiner windows ländereinstellung.

[Mackhack]

Einfach so:

Delphi-Quellcode:

Function CommaToDot(const aString: String): String;
Begin
  Result := StringReplace(AString, ',', '.', [rfReplaceAll]);
End;

[Kedariodakon]

Zitat:

Zitat von Mackhack

Einfach so:

Delphi-Quellcode:

Function CommaToDot(const aString: String): String;
Begin
  Result := StringReplace(AString, ',', '.', [rfReplaceAll]);
End;

gibt es denn auch Tausender Trennzeichen?
Wenn ja, dann vorher die "." löschen :)

Delphi-Quellcode:

Function CommaToDot(const aString: String): String;
Begin
  Result := StringReplace(StringReplace(AString, '.', '', [rfReplaceAll]), ',', '.', [rfReplaceAll]);
End;

Bye Christian

[guidok]

Um noch auf deine eigene Lösung einzugehen, die natürlich auch funktioniert, wenn auch vielleicht nicht so schnell:

Delphi-Quellcode:

var i:integer; //Zählervariable 

for i:=1 to length(wort) do
  if wort[i] = ',' then wort[i] := '.';

Nebenbei kannst du Delphi natürlich auch dazu bringen, das Komma als gültigen Dezimalseparator an zu sehen. Schau mal in der Hilfe:

DecimalSeparator Variable

Ist das Zeichen, das in einer Zahl den ganzzahligen vom fraktionalen Teil trennt. Diese Variable muss einen anderen Wert als #0 haben.

Unit
SysUtils

Syntax


var DecimalSeparator: Char;

Edit: Ich habe grad noch gesehen, dass im oben geschriebenen Code noch ein Fehler steckt, da das erste Zeichen im String nicht den Index 1 sondern 0 hat muss es folgendermaßen lauten:

Delphi-Quellcode:

var i:integer; //Zählervariable 

for i:=0 to length(wort)-1 do
  if wort[i] = ',' then wort[i] := '.';

Bemerkt hättest du den Fehler vermutlich nicht, da eine Zahl nie mit einem Komma anfängt.

[Lotus]

Zitat:

Zitat von Mackhack

Einfach so:

Delphi-Quellcode:

Function CommaToDot(const aString: String): String;
Begin
  Result := StringReplace(AString, ',', '.', [rfReplaceAll]);
End;

und bei dieser version geht er die komplette zahl durch? also kann ich noch so viele zahlen davor haben, er wird das komma finden? wird wahrscheinlich genau durch das [rfReplaceAll] realisiert.. ich werd mal in der delphi hilfe schauen!

vielen dank an euch alle.. werde das sobald ich zeit finde mal ausprobieren und dann hoff ich mal das das klappt!

[Luckie]

Und wenn das Programm auf einem System mit anderen Ländereinstellungen läuft, habt ihr ein Problem. Warum benutzt ihr keine Formatierungsfunktionen, die die Ländereinstellungen berücksichtigen?

[tr909]

Alternativ geht auch noch

Delphi-Quellcode:

while pos (',',s) <> 0 do
 s[pos(',',s)] := '.';

Gruß
tr909

[Hawkeye219]

Hallo,

Zitat:

Zitat von guidok

[...]da das erste Zeichen im String nicht den Index 1 sondern 0 hat[...]

Widerspruch: klick

Gruß Hawkeye

[Lotus]

ich habe gerade gemerkt, dass ich etwas falsch beschrieben haben was ich möchte... eure ganzen versionen funktionieren lediglich wenn ich mit Strings arbeite.. allerdings wollt ich ja nur mit Zahlen arbeiten und falls jmd eine Zahl mit Komma eingibt, dann soll sie halt in eine Zahl mit Punkt umgewandelt werden.. oder würde das funktionieren wenn ich die ganze Zeit mit strings arbeite und dann die Zahl einfach mit strtoint bzw strtofloat umkonvertiere?

[Mackhack]

Du musst doch irgendwo eh deine Zahlen eingeben oder nicht?

Also flux umwandeln und rechnen mit deinen genannten Funktionen.

Aber auch dann kannst du die meisten wenn nicht alle unsere Vorschlaege beruecksichtigen. Aber auch was die Laendersache angeht, nicht jeder Hobbyprogrammierer hat seine Software auf der ganze Welt laufen also ich denke da kann er mal noch getrost drauf verzichten.