Home » Tipps & Tricks » Mathematik » Zahlen und Zahlensysteme » Punkt in einer Zahl durch Komma ersetzen

Punkt in einer Zahl durch Komma ersetzen

Diese Routine ist für Zahlen am Besten geeignet.In einer Zahl kommt normalerweise nur ein Punkt (.) vor, deshalb diese Routine:

var 
  p:integer; 
  s:string;
begin
  p:=pos('.',s);
  if p>0 then 
    s[p]:=',';
end;

Diese Routine erledigt das gleiche, ersetzt aber sämtliche Punkte durch Kommas:

var 
  z:integer; 
  s:string;
begin
  if length(s)>0 then
    for z:=1 to length(s) do 
      if s[z]='.' then 
        s[z]:=',';
end;