Hi,
ich habe einen String der Form "123.456,78 €". Ich möchte es in eine Gleitkommavariable konvertieren, um damit rechnen zu können.
Welche Funktion setze ich dafür ein, bzw. wie mache es es am geschicktesten?

Gruß
Alfonso

Wenn du dafür keine fertige Funktion findest, schreibe dir eine.
Einfach mit Delete den Punkt, das Leerzeichen und das
Eurozeichen löschen.

Gruß

Wolfgang

Auf einem englischen System dürfte das aber nicht reichen, dem müsste man dann mitteilen, dass das Komma der DecimalSeparator ist.

Man könnte es ( nach Einstellung Separator/Tausendertrenner) auch mit Val() versuchen

Zitat von mkinzler:

Man könnte es ( nach Einstellung Separator/Tausendertrenner) auch mit Val() versuchen

VAL beachtet dieses nicht, denn dort sind diese Werte mit dem amerikanischem "Standard" hardcodiert.

Val Str Write WriteLn nehmen immer komma='.'

ist praktisch, da man so sprachunabhängig Speichern/Laden kann

( darum auch http://www.delphipraxis.net/internal...104276#1104276 )

Bei mir funktioniert folgender Ansatz, der für das Euroformat ausreicht.
Wenn nicht, dann müssen wir den Code erweitern.

zusammenfalten · markieren

Delphi-Quellcode:

function EuroStringToStr(s1:String):real;
var i:integer;
begin
  for i:=1 to length(s1) do
  begin
    if (s1[i]='.') or (s1[1]=' ') or (s1[i]='€')
    then delete (s1,i,1);
  end;
  result:=StrToFloat(s1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:string;
begin
  s1:=edit1.Text;
  s2:=FloatToStr(EuroStringToStr(s1));
  Edit2.Text:=s2;
end;

end.

Gruß

Wolfgang

@Wolfgang Mix
na dann hast Du aber Glück gehabt

markieren

Delphi-Quellcode:

function EuroStringToStr(s1:String):real;
var i:integer;
begin
  for i:=length(s1) downto 1 do // mit downto läßt Du verbrannte Erde HINTER Dir
  begin
    if (s1[i]='.') or (s1[1]=' ') or (s1[i]='€')
    then delete (s1,i,1);
  end;
  result:=StrToFloat(s1);
end;

und ich würde
if SL[i] not in [0..9,DecimalSeperator]...... nutzen

Gruß
K-H

Das Problem ist ja erstmal: Ist das "123.456,78 €" immer so, oder kann es sprachabhängig auch mal "123,456.78 €" sein.

Wenn dieses sprachabhängig ist, dann
if not (SL[i] in ['0'..'9', DecimalSeperator]) then Delete(... Ansonsten muß man es eben sprachunabhängig behandeln.

Zitat von p80286:

@Wolfgang Mix
na dann hast Du aber Glück gehabt

markieren

Delphi-Quellcode:

function EuroStringToStr(s1:String):real;
var i:integer;
begin
  for i:=length(s1) downto 1 do // mit downto läßt Du verbrannte Erde HINTER Dir
  begin
    if (s1[i]='.') or (s1[1]=' ') or (s1[i]='€')
    then delete (s1,i,1);
  end;
  result:=StrToFloat(s1);
end;

und ich würde
if SL[i] not in [0..9,DecimalSeperator]...... nutzen

Gruß
K-H

Und wenn dann der Decimalseparator auf "." gestellt ist, kommt 123,45678 heraus und nicht 123456,78.

Und wenn wir dann auch noch von Dollarn, und nicht von Euronen reden...