Beiträge durchsuchen

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;