Скачать: CL | DM;

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

← →
СержК   (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. Там есть почти все что надо для строк. Было бы мыло, скинул бы :-)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c