Предложение по доработке функции DoubleToStr

Функция DoubleToStr преобразует число в строку вида "1.2345". Когда мне нужно, чтобы вместо разделительной точки была запятая, использую функцию, позаимствованную в паскалевской (PASCAL) библиотеке клипперовских (CLIPPER) функций:

//+----------------------------------------------------------------------------+
//|  Замена подстроки                                                          |
//|  Параметры:                                                                |
//|    str     - текстовая строка, в которой производится замена               |
//|    strfrom - заменяемая подстрока                                          |
//|    strto   - заменяющая подстрока                                          |
//+----------------------------------------------------------------------------+
string StrTran(string str, string strfrom, string strto) {
  int    n;
  string outstr="", tempstr;
 
  for (n=0; n<StringLen(str); n++) {
    tempstr=StringSubstr(str, n, StringLen(strfrom));
    if (tempstr==strfrom) {
      outstr=outstr+strto;
      n=n+StringLen(strfrom)-1;
    } else outstr=outstr+StringSubstr(str, n, 1);
  }
  return(outstr);
}

Пример использования функции StrTran:

int start() {
  double d=1.2345;
  string s;
 
  s=DoubleToStr(d, 4);
  s=StrTran(s, ".", ",");
  Comment(s);
}

И я считал такое положение вещей нормальным до тех пор пока не обнаружил, что аналогичная функция FloatToStr в Borland Delphi 6 является чувствительной к системным установкам. Это означает, что, если в настройках операционной системы разделителем целой и дробной частей числа является запятая, то функция FloatToStr вернёт строку вида "1,2345". А если в системе разделителем является точка, то - "1.2345". В прицепе исходники Delphi и экзешник для проверки функции FloatToStr. В проекте использован компонент TRxSpinEdit для ввода числа. Перед изменением разделителя в настройках операционной системы тестовую прогу рекомендуется перегрузить, иначе вываливается с ошибкой.

Предлагаю разработчикам рассмотреть возможность доработки функции DoubleToStr и сделать её чувствительной к системным настройкам.