Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

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;


Вроде так...


 
YurikGL ©   (2004-11-03 22:52) [5]

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

memo2.Lines.Text;


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

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



Страницы: 1 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
8-1088776834
лам
2004-07-02 18:00
2004.11.21
DelphiX Проблема


1-1100020933
kooop
2004-11-09 20:22
2004.11.21
массив Edit- компонентов


1-1099519559
BadProg
2004-11-04 01:05
2004.11.21
TClientSocket в Delphi 7


14-1099652798
}|{yk
2004-11-05 14:06
2004.11.21
Курт Воннегут: Конец близок ("In These Times", США)


3-1098696836
Карелин Артем
2004-10-25 13:33
2004.11.21
Нужен сложный "григ", в котором можно показать связанные таблицы.