VPF::Поиск в обратном порядке - Форум программистов

Pavelbej

Дата 10.7.2005, 11:04 (ссылка)

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

Загрузка ...

Опытный

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

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

Поиск в тексте идет только в одну сторону при выборе "Вниз", "Вверх" дилогового окна "Поиск". Как искать текст в обратную сторону.

Код


procedure TForm1.FindDialog1Find(Sender: TObject);
var
   S : string;
   startpos : integer;
 begin
   with TFindDialog(Sender) do
   begin
     if FSelPos = 0 then
       Options := Options - [frFindNext];
     if frfindNext in Options then
     begin
       StartPos := FSelPos + Length(Findtext);
       S := Copy(Memo1.Lines.Text, StartPos, MaxInt);
     end
     else
     begin
       S := Memo1.Lines.Text;
       StartPos := 1;
     end;
     FSelPos := Pos(FindText, S);
     if FSelPos > 0 then
     begin
       FSelPos := FSelPos + StartPos - 1;
       Memo1.SelStart := FSelPos - 1;
       Memo1.SelLength := Length(FindText);
       Memo1.SetFocus;
     end
     else
     begin
       if frfindNext in Options then
         S := Concat('There are no further occurences of "', FindText,
           '" in Memo1.')
       else
         S := Concat('Could not find "', FindText, ' in text.');
       MessageDlg(S, mtError, [mbOK], 0);
     end;
   end;

end;

SergeBS

Дата 11.7.2005, 17:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

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

А подумать?
Файл читается с начала до конца.
Пишем мы тоже с начала до конца.
слово абзац (например) при чтении с конца на начало превратится в цазба.
Дальше объяснять? smile

Pavelbej

Дата 11.7.2005, 23:33 (ссылка)

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

Загрузка ...

Опытный

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

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

Я говорю про то что выбирая радиокнопки "Вверх" и "Вниз" ничего не меняется

mvdr

Дата 13.7.2005, 02:36 (ссылка)

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

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

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

Pavelbej, коды а эти кнопки разные?
Добавлено @ 02:45
можно извратиться: есть исходный текст, делаем по нему поиск на наличие пробелов (от пробела до пробела): т.е. создаем другой текст. По измененному тексту и организуем поиск.
Т.е. В новое Мемо пишем на отдельную строку слово и рядом позицию начального символа в оригинале (точнее даже лучше сделать так:

Код


...
0001 яблочный 
0010 пирог
....

Теперь нам надо найти слово "пирог": Ищем его в Мемо2, затем смотрим на начальную позицию в Мемо1 - и выделяем в Мемо1.

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

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

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