Esetleg:
Var i: Integer;
s: string;
Begin
s := 'szöveged';
i := AnsiPos(',',s); // megkeresi a szövegedbe a vesszőt
If i <> 0 Then Begin
Insert('.', s, i); // kicseréli a veszőt pontra
End;
Esetleg, ha egy szövegen belűl többi azonos karaktert, stringrészt szeretnéd kicserélni ugyanarra a karakterre, vagy stringrészre ajánlom a StringReplace függvény használatát.
De ha tizedesjel megváltoztatásra akarod használni (numerikus formában), akkor ThousandSeparator függvényt ajánlhatnám esetleg.

most látom te zárójeleztél, elvileg nem hiba, de a fene se tudja...
Üdv.: Totó

Érdekes nálam a if ido[2]=',' then ido[2]:='.'; működik!
(Delphi 7)
Üdv.: Totó

Szia Zsolt!

Kód:

function Swap(s:string;mit,mivel:integer):string;
var
c:char;
begin
//c:=s[mivel];
c:='.';
s[mivel]:=s[mit];
s[mit]:=c;
Result:=s;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
begin
a:=swap(Edit1.Text,2,2,);
Edit1.Clear;
Edit1.Text:=a;
end;

end.

Ez lecseréli a ',' '.' - ra.
Bár ezt még megkell variálni, mert minden második karaktert
lecserél pontra. De lehet, hogy ez már segít.

Üdv: Karesz