[Delphi]/[Pascal] Задай вопрос, получи ответ

#11

16.05.2009, 23:23

Mosvit

Познающий

Регистрация: 05.03.2007

Сообщений: 99

С нами: 10097277

Репутация: 44

Подскажите как решить такую проблемку,
домустим у меня есть предложение (записано в msg:string), при нажатии на кнопку , нужно выполнить поиск слова введённого в Edit1 в предложении (MSG), и если это слово найдено, то записать его в Мемо1, если не найдено - то в Мемо2.
Даже если задана в Эдит1 часть слова, то выполнять и её поиск. Например поиск "Пр" в предложении "Привет! Как дела?" должно дать положительный результат и записаться в Мемо1.

Пытался сделать вот так:
msg - и есть само предложение.
Проблема в том что моим способом возможно осуществить поиск только слова обязательно имеющего не менее 5 букв (из-за условия msg[j]+msg[j+1]+msg[j+2]+msg[j+3]+msg[j+4])

Код:

for j:=1 to Length(MSG) do begin
                 
if msg[j]+msg[j+1]+msg[j+2]+msg[j+3]+msg[j+4]=Edit1.Text then begin
str:=msg;
Memo1.Lines:=Edit1.Text
        end; 
if msg<>str then 
Memo2.Lines:=Edit1.Text;