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