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

[UKRtortik]

Не могу понять что не так?

procedure TNewThread.Execute;
begin
HTTP:=THTTPSend.create;
rege:=TRegExpr.Create;
rege.Expression:='\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5}';
for i:=0 to Form1.sMemo1.Lines.Count-1 do
begin
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);
end;
HTTP.Free;
Rege.Free;
http.Document.Clear;
http.Headers.Clear;
end;

procedure TNewThread.reg;
begin
Form1.sMemo2.Lines.Add(rege.Match[0]);
end;

[XE5]

Сходу увидел такую ошибку

HTTP.Free;//уничтожили
Rege.Free;
http.Document.Clear;//пытаемся работать с уничтоженным объектом
http.Headers.Clear;

[UKRtortik]

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

Сходу увидел такую ошибку

HTTP.Free;//уничтожили
Rege.Free;
http.Document.Clear;//пытаемся работать с уничтоженным объектом
http.Headers.Clear;

Ну это мелочь, а еще какие есть ошибки?

[eoln]

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

Ну это мелочь, а еще какие есть ошибки?

А что там не так? Вернее что этот код должен делать?

На быстрый взгляд:
- Что это там в регулярке?
- Обращение к форме без синхронизации
- rege.Match[0] область видимости переменной ограничена в Execute
- Переменные html, site, i неизвестно где объявлены... они глобальные для всего или в классе описаны?
- А что будет, если выскочит ошибка и перекинется в except? html не изменит значение и в мемо2 что-то добавится (или ничего - п.3)

Ну и форматирование кода отсутствует.

[UKRtortik]

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

А что там не так? Вернее что этот код должен делать?

На быстрый взгляд:
- Что это там в регулярке?
- Обращение к форме без синхронизации
- rege.Match[0] область видимости переменной ограничена в Execute
- Переменные html, site, i неизвестно где объявлены... они глобальные для всего или в классе описаны?
- А что будет, если выскочит ошибка и перекинется в except? html не изменит значение и в мемо2 что-то добавится (или ничего - п.3)

Ну и форматирование кода отсутствует.

TNewThread = class(TThread)
  private
   html:TStringList;
   html2:string;
   rege:tregexpr;
   http:thttpsend;
   prx3:tstringlist;
  procedure reg;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

var
  Form1: TForm1;
  i:integer;
  site:string;

[eval]

- Что это там в регулярке?

IP с портом судя по всему

Ну это мелочь, а еще какие есть ошибки?

а что тогда не мелочь?

[UKRtortik]

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

IP с портом судя по всему
а что тогда не мелочь?

Вот я у вас и спросил что не так, так как сам не понимаю в чем тут ошибка...

[eval]

eoln вам практически все рассказал

[Larboss]

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

[bulldog5293]

Вот я у вас и спросил что не так, так как сам не понимаю в чем тут ошибка...

Значит нет ошибки