Zahlen wandeln von 7.209898571 -> 7,209898571 ?

[Corpsman]

Delphi-Quellcode:

function Wandle(Value:String):String;
var i:Integer;
begin
  i :=  pos('.',Value);
  while i <> 0 do begin
    Value[i] := ',';
    i :=  pos('.',Value);
  end;
  result := Value;
end;