1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Function MyStrToFloat(AString:String):Real;
Var
  I,AnInt,ErrCode,ACount,Pos : Integer;
begin
  //Delete existing ThousandSeperators first
  ACount := 0;
  Pos    := Length(AString);
  repeat
    If (AString[Pos] = '.') or (AString[Pos] = ',')
      then begin
             Inc(ACount);
             If (ACount > 1) then delete(Astring,Pos,1);
           end;
    Dec(Pos);
  until (Pos = 0);

  //Change to DecimalSeparator of current Windows-Version
  For I:= 1 to length(AString) do
    begin
      Val(AString[I],AnInt,ErrCode);
      If (ErrCode > 0) then AString[I] :=DecimalSeparator;
    end;

  Result := StrToFloat(AString);
end;                    

1:
2:
3:
4:

function MyStrToFloat(const S: String): Extended;
begin
  result := StrToFloat(StrReplace(StrReplace(S, ',', DecimalSeperator, []), '.', DecimalSeperator, []));
end;                    

1:
2:
3:
4:
5:
6:

function MyStrToFloat(const S: String): Extended;
const
  Seperators: Array[Boolean] of char = (',', '.');
begin
  result := StrToFloat(StrReplace(S, Seperators[DecimalSeperator = ','], DecimalSeperator));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

Function MyStrToFloat(NumString: string): Double;
Var
  i : Integer;
  cThousandSep, cDecimalSep: Char

  procedure _Analyze;
  var
    C, C1: Char;
    L, P: Integer;

    function _NextNonDigit(iStart: Integer): Integer;
    begin
      Result := iStart+1;
      while (Result <= L) and (NumString[Result] in ['0'..'9']) do
        Inc(Result);
    end;

  begin
    cThousandSep := '?';
    cDecimalSep := '?';
    L := Length(NumString);
    P := 0;
    P := _NextNonDigit(P);
    if P > L then Exit;
    C := NumString[P];

    Inc(P, 4);
    if P > L then begin
      if L < 5 then cDecimalSep := C;
      Exit;
    end;
    repeat
      C1 := NumString[P];
      if C1 = C then begin
        cThousandSep := C;
        P := _NextNonDigit(P);
      end
      else if C1 in ['0'..'9'] then begin
        cDecimalSep := C;
        Break;
      end
      else begin
        cDecimalSep := C1;
        cThousandSep := C;
        Break;
      end;
    until P > L;
  end;

begin
  _Analyze;
  If (cDecimalSep='?') and (cThousandSep='?') Then
    Raise Exception.Create('Zahl kann nicht eindeutig konvertiert werden');
  NumString := StringReplace(NumString,cThousandSep,'',[rfReplaceAll]);
  NumString := StringReplace(NumString,cDecimalSep,DecimalSeparator,[rfReplaceAll]);
  Result := StrToFloatDef(NumString,-1);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function strToFloat42(Text: String)
var
  pre, post: String;
  foundSep: Boolean;
  i: Integer;
begin
  foundSep:=false;
  for i:=Length(Text) downto 1 do begin
    if Text[i] in ['0'..'9'] then begin
      if foundSep then
        pre:=Text[i] + pre
      else
        post:=Text[i] + post;
    end else
      foundSep:=true;
  end;
  result:=pre + '.' + post;
end;