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



Вопросы
  Получить имена всех папок и файлов в директории
   Категория: Файловая система
  Как закачать файл из Интернета
   Категория: Интернет и Сети
  Удалить файл в Корзину
   Категория: Приложение
  Числовой формат ячейки в Excel
   Категория: Базы данных
  Как найти наибольший общий делитель
   Категория: Математика
  Округление в меньшую сторону
   Категория: Математика
  BDE. Расположение БД по псевдониму
   Категория: Базы данных
  Как в Memo прокрутить текст
   Категория: Компоненты

Delphi - База Знаний: Замена подстроки в строке

  << Вернуться к Содержанию  

function StrReplace(const Str, Str1, Str2: string): string;
// str - исходная строка
// str1 - подстрока, подлежащая замене
// str2 - заменяющая строка
var
  P, L: Integer;
begin
  Result := str;
  L := Length(Str1);
  repeat
    P := Pos(Str1, Result); // ищем подстроку
    if P > 0 then
    begin
      Delete(Result, P, L); // удаляем ее
      Insert(Str2, Result, P); // вставляем новую
    end;
  until P = 0;
end;
  << Вернуться к Содержанию