VPF::поиск в RichEdit - Форум программистов

mauar

Дата 5.5.2008, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 5.9.2007

Репутация: нет
Всего: нет

Сделал поиск по RichEdit:
Функция такая :

Код


function SearchText_AndSelect (RichEdit:TRichEdit;SearchText:String):Boolean;   
var  
StartPos,Position,EndPos:Integer;   
begin  
  StartPos := 0;   
  with RichEdit do  
  begin  
    Endpos := Length(RichEdit.Text);   
    Lines.BeginUpdate;   
    while FindText(SearchText, StartPos, Endpos, [stMatchCase])<>-1 do  
    begin  
      Position := FindText(SearchText, StartPos, Endpos, [stMatchCase]);   
      Endpos   := Length(RichEdit.Text) - startpos;   
      Inc(StartPos, Length(SearchText));   
      SetFocus;   
      SelStart  := Position;   
      SelLength := Length(SearchText);   
    end;   
    Lines.EndUpdate;   
  end;   
end;

По нажатиию кнопки выполнить:

Код


SearchText_AndSelect (RichEdit1  , Edit1.Text);

Поиск идет в RichEdit1 из компонента Edit1.

Как убрать поиск по регистру, а то если слово с заглавной буквы то он это слово не находит.
И как сделать так чтобы RichEdit прокрутился в то место где находится найденное слово.

THandle

Дата 5.5.2008, 13:58 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Код


function SearchText_AndSelect (RichEdit:TRichEdit;SearchText:String):Boolean;
var
StartPos,Position,EndPos:Integer;
begin
  StartPos := 0;
  with RichEdit do
  begin
    Endpos := Length(RichEdit.Text);
    Lines.BeginUpdate;
    while FindText(SearchText, StartPos, Endpos, [])<>-1 do
    begin
      Position := FindText(SearchText, StartPos, Endpos, []);
      Endpos   := Length(RichEdit.Text) - startpos;
      Inc(StartPos, Length(SearchText));
      SetFocus;
      SelStart  := Position;
      SelLength := Length(SearchText);
    end;
    Lines.EndUpdate;
  end;
end;

mauar

Дата 5.5.2008, 14:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 5.9.2007

Репутация: нет
Всего: нет

THandle,
Все так же как и было, не работает заглавие и richedit не прокручивается на найденное слово smile

Это сообщение отредактировал(а) mauar - 5.5.2008, 14:27

THandle

Дата 5.5.2008, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

У меня вот так вот все отлично ещет:

Код



function SearchText_AndSelect (RichEdit:TRichEdit;SearchText:String):Boolean;
var
StartPos,Position,EndPos:Integer;
begin
  StartPos := 0;
  with RichEdit do
  begin
    Endpos := Length(RichEdit.Text);
    Lines.BeginUpdate;
    while FindText(SearchText, StartPos, Endpos, [])<>-1 do
    begin
      Position := FindText(SearchText, StartPos, Endpos, []);
      Endpos   := Length(RichEdit.Text) - startpos;
      Inc(StartPos, Length(SearchText));
      SetFocus;
      SelStart  := Position;
      SelLength := Length(SearchText);
    end;
    Lines.EndUpdate;
  end;
end;

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  SearchText_AndSelect(RichEdit1, Edit1.Text);
end;

Например текст в RichEdit:

Цитата

НужНый текст

А в Edit1:

Цитата

нужный

Жмем кнопку - все находит и выделяет слово НужНый

mauar

Дата 5.5.2008, 14:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 5.9.2007

Репутация: нет
Всего: нет

THandle,
Да по заглавию заработало, а как теперь сделать чтобы RichEdit прокрутился на найденное слово? smile

Все спасибо сдела просто добавил строчку RichEdit1.Perform(EM_SCROLLCARET, 0, 0); в функцию smile

Это сообщение отредактировал(а) mauar - 5.5.2008, 14:39

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »