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

Aprol

Дата 9.10.2007, 10:09 (ссылка)

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

Загрузка ...

Опытный

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

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

мне нужно переодически проверять некоторые переменные tstrings на наличие определенных слов.
Как это сделать (возможно уже есть алгоритм) и маскимально весь этот процесс ускорить.

Добавлено через 2 минуты и 34 секунды

Код


function _s(kod:tstrings):boolean;
var rt,rt2,rt3,rt4,rt5:boolean;
i:integer;
 begin
  _s:=false;
  for i:=0 to  kod.Count-1 do
  begin
  if pos('error',kod[i])<>0 then rt:=true;
  if pos('time',kod[i])<>0 then rt2:=true;
  if pos('qwerty',kod[i])<>0 then rt3:=true;
  if pos('asm',kod[i])<>0 then rt4:=true;
  if pos('log',kod[i])<>0 then rt5:=true;
  if rt or rt2 or rt3 or rt4 or rt5 then begin result:=false; break;end
     else  result:=true; 
  end;
  
 end;

Это так наброски , но и они не хотят работать.

Alexeis

Дата 9.10.2007, 10:32 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Aprol, используйте регулярные выражения. Есть сторонний компонент TRegExpr. В него задается маска (регулярка), где описаны все условия поиска, и производиться запуск. Алгоритм будет искать совпадения в строке по этому условию. Возможности задания этих условий весьма большие, а тут банальное перечисление (вариантов совпадения) легко делается.

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Akella

Дата 9.10.2007, 16:19 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

а если так

Код


if pos(AnsiUpperCase('error'), AnsiUpperCase(kod[i])) <> 0 then rt:=true;

Aprol

Дата 12.10.2007, 14:30 (ссылка)

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

Загрузка ...

Опытный

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

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

На сколько долго эта функция изменения регистра увеличивает время выполнени алгоритма?

Alexeis

Дата 12.10.2007, 14:43 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Цитата(Aprol @ 12.10.2007, 14:30

)

На сколько долго эта функция изменения регистра увеличивает время выполнени алгоритма?

На время линейно зависящее от длинны исходного текста.

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

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