мне нужно переодически проверять некоторые переменные 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;
|
Это так наброски , но и они не хотят работать. |
)