Currency String nach Gleitkomma convertieren

[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.