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

Vco

Дата 15.2.2003, 03:05 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 311
Регистрация: 13.2.2003
Где: Москва

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

Объясните пожалуста как пользоваться поиском, т.е. есть finddialog и как из него найти текст в richedite , и чтобы он выделялся...никак непойму...

--------------------

Я всегда где-то рядом...!

Vit

Дата 15.2.2003, 03:46 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Я с FindDialog не работал, но по-моему можно просто искать текст через функции типа pos, AnsiPos, затем выделять текст при помощи SelStart, SelLength. A вообще рекомендую попробовать пакет SynEdit - http://syedit.sourceforge.org - там хорошо реализована функция поиска...

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Vit

Дата 15.2.2003, 03:49 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Ага, вот пример из справки Дельфи как это делать:

Код

This example requires a TRichEdit, a TButton, and a TFindDialog.
Clicking the button click will display a Find Dialog to the right of the edit control.  Filling in the "Find what" text and pressing the Find Next button will select the first matching string in the Rich Edit control that follows the previous selection.

procedure TForm1.Button1Click(Sender: TObject);

begin
  FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
  FindDialog1.Execute;
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with RichEdit1 do
  begin
    { begin the search after the current selection if there is one }
    { otherwise, begin at the start of the text }
    if SelLength <> 0 then

      StartPos := SelStart + SelLength
    else

      StartPos := 0;

    { ToEnd is the length from StartPos to the end of the text in the rich edit control }

    ToEnd := Length(Text) - StartPos;

    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(FindDialog1.FindText);
    end;
  end;
end;

--------------------

Vco

Дата 15.2.2003, 04:22 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 311
Регистрация: 13.2.2003
Где: Москва

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

разобрался немного, зотя бы работает) . В книге дан пример но finddialog не описываеться

. Во :

Код


procedure TForm1.FindDialog1Find(Sender: TObject);
procedure TForm1.FindDialog1Find(Sender: TObject);
begin
if pos(finddialog1.FindText,richedit1.Text)<>0 then
begin
richedit1.HideSelection:=false;
richedit1.SelStart:=pos(finddialog1.FindText,richedit1.text)-1;
richedit1.selLength:=length(finddialog1.findtext)
end
else
messagedlg('Строка '+finddialog1.findtext+' не найдена!', mtconfirmation, [mbok], 0);

end;

--------------------

Я всегда где-то рядом...!

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