Delphi Замена Точки На Запятую

В Delphi заменить точку на запятую в числах может потребоваться, например, для корректного отображения дробных чисел в текстовых полях или при работе с файлами в форматах, отличных от англоязычного. Для выполнения данной задачи можно воспользоваться функцией ReplaceStr:

str := ReplaceStr(str, '.', ',');

Здесь str - это переменная типа String, содержащая исходную строку. Выражение ReplaceStr(str, '.', ',') заменяет все точки в строке str на запятые.

Если необходимо заменять только точки в числах, то можно воспользоваться регулярными выражениями. Например, можно использовать следующий код:

var
  regex: TRegEx;
  str: string;
begin
  str := '1.23 4.56 7.89';
  regex := TRegEx.Create('\d+\.\d+');
  str := regex.Replace(str, ReplaceCallback);
  ShowMessage(str);
end;

function ReplaceCallback(const Match: TMatch): string;
begin
  Result := StringReplace(Match.Value, '.', ',', [rfReplaceAll]);
end;

В данном примере функция ReplaceCallback вызывается для каждого совпадения с регулярным выражением '\d+\.\d+', т.е. для каждого числа с десятичной точкой. В функции ReplaceCallback десятичная точка заменяется на запятую с помощью функции StringReplace. Результат замены записывается в переменную str.