VPF::RichEdit: проблема с FindText - Форум программистов

Alexeyt

Дата 31.12.2008, 15:00 (ссылка)

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

Загрузка ...

Опытный

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

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

Делаю поиск в RichEdit (текст в UTF8, поддерживается RichEdit WinXP SP2).
Файл выложен сюда.

Первый поиск буквы "а" (английской): успешно.
Поиск далее (от смещения найденного + 1): неудачно - в этом проблема.
Т.е. поиск далее всегда ничего не находит в этом файле. Можно и более длинные слова искать.

В коде ищу через метод TRichEdit.FindText.

Это сообщение отредактировал(а) Alexeyt - 31.12.2008, 15:04

Rrader

Дата 1.1.2009, 09:44 (ссылка)

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

Загрузка ...

Inspired =)

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

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

Код из справки вроде работает smile

Код


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;

Это сообщение отредактировал(а) Rrader - 1.1.2009, 09:44

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

Let's do this quickly!
Rest in peace, Vit!

Alexeyt

Дата 1.1.2009, 10:55 (ссылка)

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

Загрузка ...

Опытный

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

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

Код из справки работает не совсем. Он находит "а", но не находит второе вхождение "ap" (в слове Apollo в конце файла, ссылка выше). Или просто "Apollo". Опцию MatchCase я убрал.

ОТличия от моего:
У меня был поиск до MaxInt, а в коде - до Length(Text) - StartPos. В случае UTF-8 файла такое число возможно некорректно.

Добавлено @ 11:08
Решение: искать надо до MaxInt - StartPos.
Тогда ищет корректно...

Это сообщение отредактировал(а) Alexeyt - 1.1.2009, 11:09

Nastroenie

Дата 18.5.2009, 13:29 (ссылка)

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

Загрузка ...

Новичок

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

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

а можно коментарии к данному коду на русском языке, не совсем понятен алгоритм поиска с заменой

Alexeyt

Дата 18.5.2009, 15:42 (ссылка)

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

Загрузка ...

Опытный

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

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

проблема решена, см выше, комментировать что-то нет смысла.

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