Поиск подстроки в строке

[Человек_Борща]

Гениально. А что, про PosEx из StrUtils уже все забыли.

[grafgrial]

Сообщение от Человек_Борща

Гениально. А что, про PosEx из StrUtils уже все забыли.

да неее, можно ему и регулярные выражения поюзать, но разбираться

[Аватар]

   while  o^.b do //есть 100% уверенность, что после o:=o^.next по концу здесь будет False?
   begin
...
      o:=o^.next;
      l:=length(o^.data);
   end;

[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('подстрока', '#');

ЗЫ. Тема закрыта

[Mister.V]

Сообщение от Аватар

   while  o^.b do //есть 100% уверенность, что после o:=o^.next по концу здесь будет False?
   begin
...
      o:=o^.next;
      l:=length(o^.data);
   end;

Да, последний (или первый, какой там) элемент стека у меня имеет ключ b со значением false (все остальные элементы имеют значение true). Работа с ключом просто не подводит, работает без перебоев.