repeat i := Pos(',', Bag); if i > 0 then Bag [i]:='Запятая'; until i=0; result:=Bag;
Posted via ActualForum NNTP Server 1.4
Bag := AnsiReplaceText(Bag , ',', 'Запятая');
repeat i := Pos(',', Bag); if i > 0 then begin Bag [i]:=' '; Insert(' Запятая',Bag,i); end; until i=0; result:=Bag;