Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

кол-во подстрок в строке [D7]


Страницы:   1 2 3 4

Неважно ©   (2009-11-27 17:39:00) 

ДД.
Есть строка 01hello word01

Необходимо посчитать сколько "подстрок" 01 было в строке.
Есть что-нибудь из 1 команды или только циклом с PosEx ?

Спасибо


Sha   (2009-11-27 21:52:00) [61]

> Есть что-нибудь из 1 команды

Конечно :)

 Edit3.Text:=IntToStr(Length(StringReplace(Edit1.Text,Edit2.Text,Edit2.Text+#0,[rfReplaceAll]))-Length(Edit1.Text));


sniknik   (2009-11-27 18:18:00) [62]

> быстрее и проще сделать цикл с PosEx.
а без дурацкого ограничения, на - '"только циклом с PosEx" или 1й командой', было бы еще проще.


clickmaker   (2009-11-27 18:06:00) [63]

> Есть что-нибудь из 1 команды

"циклом с PosEx - марш!"


Юрий Зотов   (2009-11-27 18:05:00) [64]

> Есть что-нибудь из 1 команды или только циклом с PosEx?

В стандарте - нет такого. Возможно, есть где-нибудь в сторонних библиотеках, только быстрее и проще сделать цикл с PosEx.


Страницы:   1 2 3 4

Наверх

Титульная страница Поиск, карта сайта Написать письмо