Количество вхождений подстроки в строку

← →
СержК (2003-12-17 10:16) [0]

Уважаемые мастера, подскажите как можно узнать количество вхождений подстроки в строку. Заранее всем спасибо.

← →
Романов Р.В. © (2003-12-17 10:28) [1]

Написать свою функцию или использовать написаную другими людьми.
Поищи в FAQ или UBPFD

← →
REA © (2003-12-17 10:48) [2]

While, PosEx, Inc

← →
Babay © (2003-12-17 10:59) [3]

функции Pos, Delete, While
и чето типа:

Function Kpos(subStr,s:String):Integer;
Var i:Integer;
begin
Result:=0;
i:=Pos(Substr,s);
While i<>0 do begin
Delete(s,i,Length(SubStr));
Result:=Result+1;
i:=Pos(Substr,s);
end;
end;

не проверял писал прямо тут.... но должно работать

← →
_VectoR_ (2003-12-17 11:34) [4]

Как то скачал я unit для работы со сторками. Называется QStrings.pas. Там есть почти все что надо для строк. Было бы мыло, скинул бы :-)

Количество вхождений подстроки в строку Найти похожие ветки