Форум "Delphi"

Паскаль, Делфи

#0 ZDVITAS 10.09.06 04:41:23 - 24.09.06 05:25:43

Народ Помогите!!!!

Народ плиз помогите горю!!! Пошёл на заочные курсы по dELPHI и вот такая незадача! "Приведите ваше решение метода «Поиск слова». В этом методе надо передать выбранное слово и проверить наличие слова в каж-дой строке компонента memo1. При обнаружении искомого слова счетчик слов увеличивается на 1." Я вот никак не могу врубиться как найти слово в компоненте MEMO!! ! Если кто нибудь поможет буду очень признателен!

#1 ZeroDivide © 11.09.06 07:37:54

RTFM

#2 Чехонте 11.09.06 08:17:00

function Pos(Substr: string; S: string): Integer;

#3 Старый маразматик © 11.09.06 10:27:54

ужоснах

#4 Kortez © 11.09.06 15:22:50

а потом они приходят к нашим начальникам и говорят, что программисты

и готовы работать за еду

#5 Старый маразматик © 11.09.06 16:12:36

>#4 Kortez ©

и потом они будут запрещать нам ковыряцца в носу!

#7 Deep © 12.09.06 15:57:06

> #0 ZDVITAS
>> Я вот никак не могу врубиться как найти слово в компоненте
> MEMO!! !
для этого нужно работать с содержимым мемо как массивом строк. Смотри свойство Memo.Lines.

> В этом методе надо передать выбранное слово и проверить
> наличие слова в каж-дой строке компонента memo1.
Делаем перебор строк мемо в цикле и при нахождение строки в мемо запоминаем номер строки и количество слов.

как делать цикл надеюсь понятно?
for/repeat/while
рекомендую использовать while

поиск слова осуществляем с помощью функции Pos(Substr: string; S: string): Integer; если слово найдено, отрезаем часть(функция Delete) от начала строки до последнего символа найденого в строке слова и повторяем поиск. Если не найдено - переходим к следующей строке.

Написать ответ