Currency String nach Gleitkomma convertieren

[Wolfgang Mix]

Ich denke, das müsste dem TE jetzt weiterhelfen

Gruß

Wolfgang

[DeddyH]

Naja, einen Vorschlag hätte ich noch:

Delphi-Quellcode:

function EuroStringToStr(s1: String; DecSep: char = ','): double;
var i: integer;
begin
  for i:= length(s1) downto 1 do
    if not (s1[i] in ['0'..'9',DecSep]) then
      Delete(s1,i,1);
  Result := StrToFloat(s1);
end;

Damit kann man sich dann aussuchen, ob fix das Komma oder doch lieber der Dezimalseparator genommen werden soll.

[Wolfgang Mix]

Gefällt mir jetzt so sehr gut. Wollte nur den Anstoss geben

[Namenloser]

Ich frage mich allerdings, ob es wirklich sinnvoll ist, alles außer den erlaubten Zeichen einfach zu löschen. Stellt euch vor, einer ruft sowas auf:
EuroStringToStr('1ABC23,5 67.89 € wuppdi') In dem Falle wäre es schon sinnvoll, eine Fehlermeldung zu erhalten...

[Wolfgang Mix]

Hast recht, ausserdem sollten wir jetzt noch den Funktionsnamen von EuroStringToStr
auf EuroStringToFloat ändern

[Alfonso]

Eine wichtige Sache habt Ihr noch vergessen: Das Minuszeichen! Es gibt auch Leute die Schulden machen

Delphi-Quellcode:

function EuroStringToFloat(s1: String; DecSep: char = ','): double;
var i: integer;
begin
  for i:= length(s1) downto 1 do
    if not (s1[i] in ['0'..'9','-',DecSep]) then
      Delete(s1,i,1);
  Result := StrToFloat(s1);
end;

[Alfonso]

Zitat von NamenLozer:

Stellt euch vor, einer ruft sowas auf:
EuroStringToStr('1ABC23,5 67.89 € wuppdi') In dem Falle wäre es schon sinnvoll, eine Fehlermeldung zu erhalten...

Tja, wie stellt man jetzt fest, ob der eingegebene String eine gültige Zahl enthält ... ?

[Wolfgang Mix]

@Alfonso:

Zitat:

Eine wichtige Sache habt Ihr noch vergessen: Das Minuszeichen! Es gibt auch Leute die Schulden machen

Haben wir nicht
Die Funkton klappt auch mit '-' als 1.Zeichen

Grüß

Wolfgang

[Alfonso]

Zitat von Wolfgang Mix:

@Alfonso:

Zitat:

Eine wichtige Sache habt Ihr noch vergessen: Das Minuszeichen! Es gibt auch Leute die Schulden machen

Haben wir nicht
Die Funkton klappt auch mit '-' als 1.Zeichen

Das verstehe ich aber nicht. Die Schleife geht runter bis zum 1.ten Zeichen, und da das '-' nicht im Set ['0'..'9',DecSep] war, wurde es doch gelöscht, oder bin ich blind.

Gruß
Alfonso

[Wolfgang Mix]

Sorry, hast natürlich recht, hatte ich nicht getestet, nur mit der 1. Version.

Gruß

Wolfgang