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

Eksell

Дата 29.5.2006, 13:10 (ссылка)

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

Загрузка ...

Новичок

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

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

У меня тут вопрос появился. Короче мне надо найти слово в тексте (это я знаю, использую FindDialog), и посмотреть слово которое стоит перед найденным (т.е сохранить его в переменную типа - string). Как это можно сделать??? Подскажите пожалуйста. Очень нужно для курсовой.
Если не трудно, дайте пример пожалуйста.
Спасибо.

_hunter

Дата 29.5.2006, 13:23 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

поиском пользуемся:
http://forum.vingrad.ru/index.php?showtopic=6830

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

Tempora mutantur, et nos mutamur in illis...

Eksell

Дата 29.5.2006, 17:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо за ссылку. Но я хочу немного по другому сделать. Мне нужно найти слово, и посмотреть другое слово стоящее ПЕРЕД найденным, т.е сохранить его в переменную типа string. Помогите пожалуйста, покажите на примере как это осуществить smile

. Мне скоро курсовую сдавать, почти все закончил, а вот эту проблему ни как не могу решить.
Буду Очень благодарен если поможете.

BpIstorick

Дата 29.5.2006, 18:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Eksell @ 29.5.2006, 17:22

)

ПЕРЕД найденным

начни от найденного слова поиск в обратную сторону, запомни эту позицию, затем с помощью copy просто скопируй в нужную переменную

Код


procedure TForm1.FindDialog1Find(Sender: TObject);
var
  i, j1, j2: integer;
 s: string;
begin
  j1:= pos (finddialog1.FindText, richEdit1.Text);
  j1:=j1-2;
  j2:=0;
  label1.Caption:= inttostr (j1);
  if j1>1
    then
      for i:= j1-2 downto 1 do
        if richEdit1.Text[i]=' '
          then
            begin
              j2:=i;
              break
            end;
  s:= copy (richedit1.Text, j2, j1-j2+1);
  finddialog1.CloseDialog;
end;

правда в этом коде никаких исключений не обработано smile

, так сказать голое решение задачи smile

Eksell

Дата 29.5.2006, 21:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Огромное спасибо BpIstorick! Это то что нужно.

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