Главная страница
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.051 c
1-1099662166
g-l-u-k
2004-11-05 16:42
2004.11.21
Формулы в Memo


1-1099984033
КиТаЯц
2004-11-09 10:07
2004.11.21
Excel + Delphi задание формата ячейкам


14-1099563938
k@rt_
2004-11-04 13:25
2004.11.21
Отказано в доступе.


1-1099599852
Gero
2004-11-04 23:24
2004.11.21
TToolButton со стилем tbsDropDown и XP-темы


14-1099302701
clickmaker
2004-11-01 12:51
2004.11.21
что так форум тормозит?