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

[Mister.V]

Нужен рабочий алгоритм для оболочки PascalABC.Net нахождения подстроки в строке.
Функцию pos(sub,s:string):integer; можете не предлагать (в абц она есть и она работает, но не правильно, в общем из-за этой функции два вечера убил)
Нужен аналог функции pos (лучше всего его копию). Спасибо

PS. Если вы можете подсказать метод, который удалит из строки все повторения подстроки, то буду совсем счастлив ))

[Arigato]

В чем неправильность работы Pos?

[Mister.V]

В ходе выполнения цикла начиная где-то с 6 итерации функция l:=length(st) (st-подстрока) начинает принимать страшные величины (от 500000 до 8000000 и более), а сам st отказывается выводится на экран (writeln(st)). При том, что если удалить цикл с функцией pos (второй цикл, внутри основного), то всё отображается корректно.

[Пепел Феникса]

может дело не в функции pos, а в вашем цикле?

[Mister.V]

constructor WordsOUT.Create(BD:spisok; var s0:string);
var
   l,n: int64;
   o:link;
   st:string;
   i:byte := 1;
begin
   while i < 20 do
   begin
   o:=BD.begr;
   while  o^.b do
   begin
      if o^.data <> '' then
      begin
      st:=o^.data;
      l:=4;
      l:=length(o^.data);
      //write(l,' ');
      l:=length(o^.data);
      n:=1;
      while n<>0 do              //<---Вот этот цикл моей мечты!
      begin
         n:=pos(o^.data,s0);
         if n<>0 then begin delete(s0,n,l);  end;
      end;
      l:=0;
      end;
      o:=o^.next;
      l:=length(o^.data);
   end;
   inc(i)
   end;
end;

type
   data = string[128];
   link = ^elem; 
   elem = record
      data: data;
      b: boolean;
      next: link
   end;

[chertovich]

Врядли дело в функции Pos, все методы сред разработок обычно хорошо написаны и отлажены.

[Mister.V]

      while n<>0 do              //<---Вот этот цикл моей мечты!
      begin
         n:=pos(o^.data,s0);
         if n<>0 then begin delete(s0,n,l);  end;
      end;

Очевидно, что если убрать этот фрагмент из кода, то он станет рабочим, но пока он есть конструктор нормально работать отказывается!

[grafgrial]

есть вот такая штука:
заменяет в строке подстроку на ...
StrPage-строка
где # можно оставить пусто и он будет заменять тебе слово подстрока на пустоту

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

[3D Hunter]

Попробуйте StringReplace или ей подобные.

[phomm]

Хочешь юзай AnsiStringreplace или ReplaceString, много их. Или вот тебе, сам побырику накатал, аналог твоей, и работает )

function DelAllSubstr (TrgStr, Substr : string) : string;
var
  po, Len : Integer;
begin
  result := TrgStr;
  Len := Length(Substr);
  po := 1;                   
  repeat
    po := Posex(substr, result, po); // добавь в uses Strutils, или используй просто po := pos(substr, result);
    delete(Result, po, len);
  until po = 0;
end;