TMemo

← →
Елена (2004-11-03 21:35) [0]

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

← →
YurikGL © (2004-11-03 22:19) [1]

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

← →
Елена (2004-11-03 22:39) [2]

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

← →
YurikGL © (2004-11-03 22:44) [3]

что-то вроде

k:=0;

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

← →
tormoz (2004-11-03 22:48) [4]

Для 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;

Вроде так...

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

memo2.Lines.Text;

← →
Елена (2004-11-03 22:54) [6]

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

TMemo Найти похожие ветки