Форум: "Основная";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
ВнизКоличество вхождений подстроки в строку Найти похожие ветки
← →
СержК (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 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c