Проблема с регулярными выражениями

[UKRtortik]

Сообщение от Larboss

А что за ошибку выдает? При компиляции ошибка или код не работает?

Компилируется нормально, а код не работает.

[eval]

вам же уже подсказали в чем проблемы, в 2 темах, чего ждете?
что код сам по себе исправится?

[UKRtortik]

Вот этого я что-то не понял:

- rege.Match[0] область видимости переменной ограничена в Execute
- А что будет, если выскочит ошибка и перекинется в except? html не изменит значение и в мемо2 что-то добавится (или ничего - п.3)

[eoln]

1) отметается, т.к. было указано, что rege объявлена в классе
2)

try
site:=Form1.sMemo1.Lines.Strings[i];
http.HTTPMethod('GET',site);
html.LoadFromStream(http.Document);
except
end;
if rege.Exec(html.Text) then
Synchronize(reg)

Если, например, в красной строчке ошибка будет, то зелёная не выполнится, а вот жёлтая выполнится. Но тогда что будет в переменной html.Text ? Правильно, старое значение, поэтому могут плодится дубликаты.


А вот делать переменные i и site глобальными в основном потоке (форме) и использовать их в потоках строго запрещено. Если поток один, то ещё обойдётся, а если 2 и более, то крах будет точно.

[UKRtortik]

Сообщение от eoln

1) отметается, т.к. было указано, что rege объявлена в классе
2)
Если, например, в красной строчке ошибка будет, то зелёная не выполнится, а вот жёлтая выполнится. Но тогда что будет в переменной html.Text ? Правильно, старое значение, поэтому могут плодится дубликаты.


А вот делать переменные i и site глобальными в основном потоке (форме) и использовать их в потоках строго запрещено. Если поток один, то ещё обойдётся, а если 2 и более, то крах будет точно.

Можно изменить цвета красные и зеленые на другие, у меня с картой беда, цвета эти не определяются...

[eoln]

Черно-белый монитор?
Открой исходный код страницы и по тегам увидишь где какой цвет

<font color="Red">site:=Form1.sMemo1.Lines.Strings[i];<br />
http.HTTPMethod('GET',site);</font><br />
<font color="Lime">html.LoadFromStream(http.Document);</font><br />
except<br />
end;<br />
<font color="Yellow">if rege.Exec(html.Text) then<br />
Synchronize(reg)</font>

[UKRtortik]

Сообщение от eoln

Черно-белый монитор?
Открой исходный код страницы и по тегам увидишь где какой цвет

<font color="Red">site:=Form1.sMemo1.Lines.Strings[i];<br />
http.HTTPMethod('GET',site);</font><br />
<font color="Lime">html.LoadFromStream(http.Document);</font><br />
except<br />
end;<br />
<font color="Yellow">if rege.Exec(html.Text) then<br />
Synchronize(reg)</font>

Гооврю же с картой беда, при чем тут монитор?

[UKRtortik]

eoln, а как тогда правильно будет? Что-то я совсем запутался :-(

[UKRtortik]

- Обращение к форме без синхронизации

И на счет этого, что тогда лучше ссылки загружать в stringlist?

[UKRtortik]

Ну что не кто не поможет