Найти отдельное слово в строке

@ProRockX · Регистрация: 16.03.2013

Студворк — интернет-сервис помощи студентам

Всем добрый вечер! Помогите, пожалуйста, сам не могу сообразить, как правильно решить проблему.

Предыстория:
Имеется RichEdit, в который пользователь вводит текст. И имеется текстовая переменная "pred_word" (допустим равная 't'), которую мне потом нужно в этом тексте найти. Вот я в цикле проверяю, есть ли в строке такая переменная и получаю номер элемента с которого она начинается:

Delphi
1
2
for i:=0 to RichEdit1.Lines.Count -1 do
if (pos(pred_word, RichEdit1.Lines[i]) > 0) then poz:=pos(pred_word, RichEdit1.Lines[i]);

Но проблема в том, что, если строка будет, например, такого вида:
from * t_income t
То получится, что выражение pos(pred_word, RichEdit1.Lines[i]) мне для этой строки вернёт 8 и перейдёт на следующую строку и это логично. А мне нужно, получить номер отдельностоящего элемента t, т.е. 17.

Теперь, собственно, вопрос. Каким образом искать текстовую переменную в строке, как отдельное слово, а не как часть другого слова?

P.S. Надеюсь более-менее понятно изложил суть вопроса.

@Michalich · 25.02.2025, 21:16

Сообщение от droider

Я про этот пост

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

@droider · 26.02.2025, 10:40

Сообщение от Michalich

но так же не останавливаясь, все слова которые нашел выделяет красным

так в этом и задумка была)))

Вы просто не понимаете принципа реализации. Я Вам достаточно информации дал.
Может кто-то еще захочет поучаствовать в обсуждении. Успехов.

@Michalich · 26.02.2025, 14:02

Сообщение от droider

Вы просто не понимаете принципа реализации. Я Вам достаточно информации дал.
Может кто-то еще захочет поучаствовать в обсуждении. Успехов.

Да , это точно, не понимаю. Спасибо, буду разбираться

Новые блоги и статьи Все статьи Все блоги /
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .