Nach Dezimalzeichen (. oder ,) des Systems fragen. Wie?

[himitsu]

ok, wenn du Tausenderpunkt noch mit drin hast/haben könntest, dann mußt du die auch mit umwandeln


alle Codes, also auch deiner suchen das erste Zeichenvorkommen und so ein "Punkt" alla Tausendertrenner kommt vor dem "komma" vor

PS: wenn komma = punkt, dann punk = komma (meistens)

Delphi-Quellcode:

// entfernt Tausendertrenzeichen und macht Komma zu Punkt
// x,xxx.xx > xxxx.xx
// x.xxx,xx > xxxx.xx
//  xxxx,xx > xxxx.xx
//  xxxx.xx > xxxx.xx
Function Convert(Const S: String): String;
  Var ik, ip: Integer;

  Begin
    ik := Pos(',', S);
    ip := Pos('.', S);
    If (ik > 0) and (ip > 0) Then Begin
      If ik > ip Then Begin
        Result := StringReplace(S, '.', '', [rfReplaceAll]);
        Result := StringReplace(Result, ',', '.', []);
      End Else
        Result := StringReplace(S, ',', '', [rfReplaceAll]);
    End Else
      Result := StringReplace(S, ',', '.', []);
  End;

[edit]
Funktion mit K geschrieben

ja und nochwas zur Funktion:
es muß ein "Komma" Vorhanden sein, sonst geht es so nicht