Модераторы: Vitalik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ключивое слово и Группа слов, Принадлежит ли слово к группе ключевых 
:(
    Опции темы
GORI
  Дата 31.10.2005, 09:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Доброго всем!
Есть задача узнать принадлежит ли заданное слово к группе ключивых.

Например слово "print" принадлежит к группе Functions в файле подсветки для php.

smile Помогите плиз, и если не тяжело набросайте функцию которая вернет true/false.
Ну или хотябы подтолкните в нужном направлении




[Спасибо]
PM MAIL WWW ICQ MSN   Вверх
Vitalik
Дата 31.10.2005, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Координатор проекта
Сообщений: 653
Регистрация: 8.11.2004
Где: Ukraine, Kharkov

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



Вот написал небольшую программку (файлик прикрепляю).

Делал очень наспех, но свою работу выполняет smile

Собственно если я тебя правильно понял, то весь код заключается в:
Код
// Ищем слово, которое введено в Edit1.Text 
var
  i, j: integer;
  Found: boolean;
begin
  if SynUniSyn1 <> nil then
  begin
    Found := False;
    with SynUniSyn1.MainRules do
      for i := 0 to KeyListCount-1 do
        for j := 0 to KeyLists[i].KeyList.Count-1 do
          if Edit1.Text = KeyLists[i].KeyList[j] then
          begin
            Found := True;
            // Слово найдено в списке ключевых слов с именем KeyLists[i].Name
            break;
          end;
    if not Found then
      // Мы не нашли нужного слова
  end;
end;


Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  FindWordInKeyList.zip 2,33 Kb
PM MAIL WWW ICQ YIM   Вверх
Vitalik
Дата 31.10.2005, 09:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Координатор проекта
Сообщений: 653
Регистрация: 8.11.2004
Где: Ukraine, Kharkov

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



Также прикрепляю код вместе с EXE'шником (на всякий случай) smile

Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  FindWordInKeyList_exe.zip 511,10 Kb
PM MAIL WWW ICQ YIM   Вверх
GORI
Дата 31.10.2005, 11:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Все работает. Спасибо

Это сообщение отредактировал(а) GORI - 31.10.2005, 14:01
PM MAIL WWW ICQ MSN   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | SynUniHighlighter и SynEdit | Следующая тема »


 




[ Время генерации скрипта: 0.1132 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.