Программирование: StringChangeEx

Прототип

function StringChangeEx(var S: String; const FromStr, ToStr: String; const SupportDBCS: Boolean): Integer;

Описание

Выполняет в строке S замену всех вхождений FromStr на ToStr. Если для параметра SupportDBCS установлено значение True (рекомендуется для сохранения двоичной последовательности), двухбайтовые символы в строке S будут распознаны и обработаны корректно. В противном случае функция работает в однобайтовом режиме. Возвращает количество найденных вхождений и выполненных замен.

Комментарии

Если обрабатываемые строки содержат пути или имена файлов, обязательно передайте значение True в параметре SupportDBCS. В противном случае пути с китайскими, японскими или корейскими символами могут быть повреждены.

Пример

var
  S: String;
begin
  S := ExpandConstant('{commonappdata}');
  // S = 'C:\Documents and Settings\All Users\Application Data'

  StringChangeEx(S, '\', '/', True);
  // S = 'C:/Documents and Settings/All Users/Application Data'
end;