Currency String nach Gleitkomma convertieren

[p80286]

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

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