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

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

Поиск текста

ФФФФ ©   (2007-05-12 16:39:00) 

Спрошу мож есть и не надо изобретать велосипед?

хочу найти определенное слово-нашел, найти дальше

---

DVM   (2007-05-12 16:55:00) [1]


procedure TForm1.AFindExecute(Sender: TObject);
begin
{запоминание позиции курсора}
SPos:=RichEdit1.SelStart;
with FindDialog1 do begin
 {начальное значение текста поиска - текст, выделенный в RichEdit1}
 FindText:=RichEdit1.SelText;
 {позиционирование окна диалога внизу RichEdit1}
 Position:=Point(Form1.Left,Form1.Top+RichEdit1.Top+RichEdit1.Height);
 {удаление из диалога кнопок "Вверх", "Вниз",
  "Только  слово целиком"}
 Options:=Options + [frHideUpDown,frHideWholeWord];
 {выполнение}
 Execute;
end;
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
begin
with FindDialog1 do begin
if frMatchCase in Options
 {поиск с учетом регистра}
 then RichEdit1.SelStart:=Pos(FindText,
                          Copy(RichEdit1.Lines.Text,SPos+1,
                            Length(RichEdit1.Lines.Text)))+Spos-1
 {поиск без учета регистра}
 else RichEdit1.SelStart:=Pos(AnsiLowerCase(FindText),
                   AnsiLowerCase(Copy(RichEdit1.Lines.Text,SPos+1,
                   Length(RichEdit1.Lines.Text))))+Spos-1;
 if RichEdit1.SelStart>=Spos
  then begin
   {выделение найденного текста}
   RichEdit1.SelLength:=Length(FindText);
   {изменение начальной позиции поиска}
   SPos:=RichEdit1.SelStart+RichEdit1.SelLength+1;
  end
  else
   if MessageDlg(
         'Текст "'+FindText+'" не найден. Продолжать диалог?',
         mtConfirmation,mbYesNoCancel,0) <> mrYes
   then CloseDialog;
end;
RichEdit1.SetFocus;
end;


---

Virgo_Style   (2007-05-12 16:49:00) [2]

см. pos

---

ФФФФ   (2007-05-12 16:46:00) [3]

тоесть поиск начиная с первой строки кончая последней,
но не факт что строка начинается с искомым словом

FOR a=1 to eof  алгоритм перебор строк
в каждой строке надо начиная с первого символа сравнивать с
образцом а потом сдвигать на символ, пример, скорости не ахти(

123456RED)щщвв

ищем слово RED

123 <> RED
234 <> RED
345 <> RED
456 <> RED
56R <> RED
6RE <> RED
RED = RED  нашли слово  выход

??

---

DVM   (2007-05-12 16:41:00) [4]

> Спрошу мож есть и не надо изобретать велосипед?

Изобретать не надо только окно поиска. Оно уже есть готовое. FindDialog. Сам поиск реализовывать надо самому с помощью функций для работы со строками.

---

Наверх