Есть таймер в котором каждые 3 секунды выполняется цикл поиска ключевого слова !help
из TStringList
который содержит исходный код страницы с чатом:
fnd:='!help';
Ishodnik.Clear;
Ishodnik.Add(GetHtml(WB_Doc));
for i:=0 to Ishodnik.Count - 1 do
if pos(fnd, Ishodnik.Strings[i]) > 0 then
begin
Label1.Caption:='Ключевое слово найдено';
SpeedButton2.Click;
end
else
Label1.Caption:='Ключевое слово отсутствует';
Как присвоить порядковый номер строке в которой было найдено ключевое слово и игнорировать его при повторном сканировании?
Пробовал присвоить Object
найденной строке со значением 1
, но при проверке в label
получал значение -1
.
UPD: Теперь строка TStringList
содержащая исходный html
код страницы разбита на строки после символа ">
" (TStringList содержит 14300 строк):
fnd:='!help';
Ishodnik.Clear;
Ishodnik.Delimiter:='>';
Ishodnik.DelimitedText:=GetHtml(WB_Doc);
for i:=0 to Ishodnik.Count - 1 do
if pos(fnd, Ishodnik.Strings[i]) > 0 then
begin
Label1.Caption:='Ключевое слово найдено';
SpeedButton2.Click;
end
else
Label1.Caption:='Ключевое слово отсутствует';
Ishodnik
всего одна строка - какой порядковый номер? "Пробовал присвоить Object..." - покажите код.html
страницы заносится в StringList в виде одной строки?ShowMessage(IntToStr(Ishodnik.Count));
Ishodnik
полностью обновляется.