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;

Anzeigen

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind markiert *

Fragen und Anregungen können gerne im Forum gepostet werden. Die hierfür vorgesehene Sparte ist Delphi-Treff>>Feedback.