Точка или запятая?!

[SWAT92Shtorm]

Всем привет! Проблема в следующем.
Имеются значения в Edit-ах эти значения имеют вид например: 3,2

Проблема в том что при выгрузке в ХМL файл значение должно смениться на
3.2 , то есть запятая должна превратиться в точку.

Для такого превращения я использовал такой код:

DecimalSeparator:='.'; // меняю на точку
......
......
......
Присвоение эдитов, создание дерева XML
......
......
Xml.SaveToFile(Form5.sDirectoryEdit 1.text+'\СЗВ\'+poot);
DecimalSeparator:=','; // возвращаю обратно

Но почему то не хочет менять на точку в файле.

Что посоветуете?

[SWAT92Shtorm]

Есть выход конечно в панели управления выбрать "Язык и региональные стандарты". На закладке "Региональные параметры" нажать кнопку "Настройка..." . Далее на закладке "Числа" в поле "Разделитель целой и дробной части" заменить запятую на точку.

НО я думаю не все предпрениматели такие понятливые чтобы произвести такие действия.

[chertovich]

DecimalSeparator:='.'; - меняет разделитель, который используется в различных подпрограммах, поэтому заменяй "в ручную", то есть работай со строкой

[SWAT92Shtorm]

=) эдитов много, придется много прописать кода. Есть вариант просто открытия XML документа и редактирования запятых на точку.

[SWAT92Shtorm]

Ай да че мудрить напихаю такой код для каждого едита

for I := 1 to Length(Edit20.Text) do
 if Edit20.Text[i]=',' then m1:=m1+'.' else m1:=m1+Edit20.Text[i];
 ChildValues['СтраховыеВзносыТФОМС']:=m1;

[SERG1980]

А ф-ия StringReplace не прокатит?

...:= StringReplace(Edit1.Text,',', '.',[rfReplaceAll, rfIgnoreCase]);

[SWAT92Shtorm]

Может и прокатит но переделывать уж не буду =) А то там прилично править.