Поиск в MEMO

[dimafe6]

Здрасте. Как осуществить поиск по полю MEMO? Например есть поле MEMO, с текстом книги, нужно сделать так, чтобы был поиск по етому полю и виводился номер символа первой буквы искомого слова неучитывая пробелы.

[DeKot]

Как осуществить поиск

Поиск чего? Учитесь формулировать вопрос (задачу) максимально конкретно. Тогда и ответ получите и быстрее и точнее.

[raxp]

pos() вам в помощь.

[BOBAH13]

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

pos() вам в помощь.

Без обид, но это:
1. Медленно
2. Не универсально (только с начала текста)

Использовать PCHAR на вашу строку String (ну там вроде Lines.Text, уже и не помню). Дальше в цикле while(PCHAR^ != #0) do ; и перебираете все так символы. То что надо запоминаете, что не надо отсеиваете.

[Marsel737]

dimafe6, а поиск в Google или по форуму вам тоже не знаком?

[Alex Cones]

Дальше в цикле while(PCHAR^ != #0) do ; и перебираете все так символы.

По Вашему это отличается от реализации функи pos? О_о

S:=Memo1.Text;
While Pos(Sub, S)<>0 do
 Begin
  Memo2.Lines.Add(IntToStr(Pos(Sub, S)));
  Delete(S,1,Pos(Sub, S));
 End;

В Memo2.получите номера символов, с которых начинаются участки, которые Вы ищете.

[BOBAH13]

Alex Cones - а вы впихните 100 МБ текста, и попробуйте что работает быстрее
1. Мой вариант - это уже существует область памяти где расположен текст - мы просто пробегаемся по ней указывая на каждый символ PCHAR и дальше когда надо инкрементируем, и так пока не добежим до нуля (конца строки)
2. Ваш вариант:
a) Pos - поиск только сначала строки до первого совпадения
b) Delete - выполняет удаление/изменение строки - что значит, перевыделение (что ли) памяти для новой строки.
c) Вы вызываете 2 раза Pos - некуда девать кванты ЦП ?

Думаю спорить здесь и об этом, и так явном правильном решении, просто бессмысленно.

raxp
Это просто пример необязательно принимать дословно. Суть в том, чтобы делать производительный код, а не то как легче. Надеюсь хоть до кого-нибудь донес свою идею.

TzX
Сижу тут и отбиваюсь. Спасибо уважаемый, я в курсе, проходили. Как не крути, зачем вызывать отдельную функцию, которая по сути опять таки возьмет указатель на символ, просто смещенный относительно старта поиска (аргумента указанного в вами указанной функции, извините за тавтологию) и проделает туже самую работу что если бы сразу "бегали" по строке с указателем в руках.

Edit:
p.s. я уже даже не знаю что сказать. Либо люди специально придераються к словам не пытаясь уловить сути, либо уже на столько ленивые стали, что подумать и сделать лучше (даже если придется изобретать велосипед) уже не хотят. Не буду флудить, это Ваш выбор делайте как считаете лучше для себя, я просто хотел донести идею и свой опыт, видимо это лишнее. Извините.

[raxp]

насчет области памяти вы правы... но 100МВ текста, это что-то невероятное, даже для книжки, большой книжки...

[TzX]

2. Не универсально (только с начала текста)

Помимо Pos есть еще PosEx, которая ищет не сначала, а с определенного символа. (перед использованием подключить StrUtils)

[DeKot]

Почитал. Ключевой термин - "поиск в Memo".
И где же вы Memo видели на 100 Mб? А, професора вы мои хорошие?
Что вы мозги пудрите ТС с 2-мя сообщениями и 10 п. репутации (кролик).

Что вы мозги пудрите ТС с 2-мя сообщениями и 10 п. репутации (кролик).

Ответ не мальчика, но мужа.
Можно a+b решить таким способом, что у профессоров из Института Космических исследований оставшиеся волосы дыбом встанут...
Вопрос - а зачем ?
Имхо. Михалыч.