| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TMemo

Елена ©   (2004-11-03 21:35:00) 

Добрый вечер!
Скажите пожалуйста, как осуществить поиск, допустим, слова в Memo, так, чтобы оно присваивалось какой-либо переменной или переменной массива, а поиск возобнавлялся бы с того места, где была найдена последняя переменная?
Заранее спасибо.

---

Елена   (2004-11-03 22:54:00) [1]

огромное спасибо!

---

YurikGL   (2004-11-03 22:52:00) [2]

Забыл добавать, что к тексту мемо можно обращаться как к строке

memo2.Lines.Text;

---

tormoz   (2004-11-03 22:48:00) [3]

Для MEmo попробуй
for i:=0 to memo1.lines.count-1 do
begin
 if pos(substr,memo1.lines[i])<>0 then // в этой строке есть
end;

для строки:

buf:=str;
while pos(substr,buf)<>0 do
begin
 charnumber:=pos(substr,buf);
 buf:=copy(buf,pos(substr,buf)+1,length(buf)-pos(substr,buf));
end;

Вроде так...

---

YurikGL   (2004-11-03 22:44:00) [4]

что-то вроде

k:=0;

//с этого места нужное количество раз запускаем код
k:=pos(искомая подстрока, copy(начальная подстрока,k+1,length(начальная подстрока)-k+1);

---

Елена   (2004-11-03 22:39:00) [5]

так а если там не один символ, может мне нужно найти несколько символов или слово? и, если не сложно, напиши, как это реализовать?

---

YurikGL   (2004-11-03 22:19:00) [6]

Запоминаешь номер символа, с которого начинается искомая подстрока и ищешь в подстроке от запомненного символа+1 до конца начальной строки

---

Наверх