Выполнить поиск вхождений в TStringList - Общие вопросы Delphi

aquatell · 21.04.2011, 17:29

Всем привет! Помогите пожалуйста разобраться с вопросом:
В TStringList находятся слова, как подсчитать сколько и каких слов там находится? Далее загрузить в StringGrid какое слово и его вхождения (сколько раз оно в TStringList )

Человек_Борща · 21.04.2011, 17:37

всё просто.

Переменой s(string) присвайваем StringList.Text;
далее функцией Copy копируем в переменну aSlovo наше слово до позиции пробела. Далее тем же POs ом в цикле Repeat повторяем цикл со строкой s и поиском aSlovo.
Наши, увеличили счётчик,удалили найденное. И так до того момента пака aSlovo не будет найдено в строке. Далее повторяем действия.

21.04.2011, 17:29	#1
aquatell Регистрация: 16.04.2011 Сообщений: 9	Выполнить поиск вхождений в TStringList Всем привет! Помогите пожалуйста разобраться с вопросом: В TStringList находятся слова, как подсчитать сколько и каких слов там находится? Далее загрузить в StringGrid какое слово и его вхождения (сколько раз оно в TStringList )

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Очень надо !!! Поиск вхождений строк в массиве	aquatell	Общие вопросы Delphi	2	20.04.2011 21:18
Выполнить поиск записи в форме	Познающий	Microsoft Office Access	6	08.06.2010 19:09
Организовать поиск всех вхождений заданного слова в загруженном тексте	s2dentishe	Помощь студентам	0	21.11.2009 18:53
Здраствуйте! Как в Mysql выполнить фрагментированный поиск?	Warlruss	SQL, базы данных	0	08.10.2009 16:03
Как выполнить поиск на винте	SeRhy	Помощь студентам	1	02.11.2007 16:33

21.04.2011, 17:37	#2
Человек_Борща Старожил Регистрация: 30.12.2009 Сообщений: 11,426	всё просто. Переменой s(string) присвайваем StringList.Text; далее функцией Copy копируем в переменну aSlovo наше слово до позиции пробела. Далее тем же POs ом в цикле Repeat повторяем цикл со строкой s и поиском aSlovo. Наши, увеличили счётчик,удалили найденное. И так до того момента пака aSlovo не будет найдено в строке. Далее повторяем действия.