Удалить все повторения в строке

Posted by Chas under Delphi

Нужен рабочий алгоритм для оболочки PascalABC.Net нахождения подстроки в строке.

Mister.V
Решил проблему следующим способом, вот код:

constructor WordsOUT.Create(BD:spisok; var s:string);

var

   o:link;

   i:byte := 1;

begin

   while i < 30 do
   begin
   o:=BD.begr;
   while  o^.b do
   begin
      if o^.data <> '' then

      s:= s.Replace(o^.data,' ');

      o:=o^.next;

   end;

   inc(i)

   end;

end;

Функции AnsiReplaceStr в PascalABC.NET нет, как и нет библиотеки StrUtils, но зато в нём оказался класс для работы со строками.
Аналог

StrPage := AnsiReplaceStr(StrPage, 'подстрока', '#');

выглядит как

StrPage:= StrPage.Replace('подстрока', '#');

тема на форуме

Похожие статьи

• Посчитать кол-во восклицательных знаков в тексте
• Универсальная функция для получения из строки определённого фрагмента
• Найти и заменить символ на перевод строки
• Как в Memo найти и удалить повторяющиеся строки?
• Найти строки из первого файла во втором и сохранить в третий файл
• Функция pos, как искать далее?
• Выполнение задач на Assembler при нажатии на клавишу
• Как правильно делать автоматическое создание столбцов с картинками в виде таблицы
• Подсчет числа слов в строке по заданному условию
• Работа со строками, замена символов