function replaceChar(strChar,strOld,strNew: String):String;
function replaceChar(strChar,strOld,strNew: String):String;
var
i,j,k: Integer;
s,t: String;
begin
s:=strChar;
i:=1;
j:=length(s);
k:=length(strNew);
i:=Pos(strOld, s);
while i > 0 do
begin
t := t + copy(s,1,i-1) + strNew;
s:=copy(s,i+length(strOld),j);
i:=pos(strOld, s);
end;