[Помогите!] RegExpr (парс ссылок)

[*Хalyava*]

есть много ссылок (около 100-200).
в каждой из ссылок есть еще по 1 ссылке.
нужно зайти в каждую из 100-200 ссылок и потом перейти в следующую ссылку.
вот эти 100-200 ссылок я добавил в TStringList.
дальше делаю так:

idhttp1.get (ss); // ss переменная типа TStringList

выскакивает ошибка. помогите мне реализовать задумку.)

[VeTaL_UA]

var
...
i:integer
ss:TStringList;
begin
ss:=TStringList.Create;
...
 for i:=0 to ss.Count-1 do
  begin
  IdHTTP1.Get(ss[i]);
  end;
...
HTTP.Free;
ss.Free;
...
end;

[*Хalyava*]

спасибо. помогло.
но возникла еще проблема.
есть TStringList с ссылками.

нужно сделать многопоточный перебор этих ссылок (чтобы было побыстрее).
помогите, пожалуйста))
вот код. но он не рабочий. ошибку никак не могу найти((

 procedure pars2.Execute;
 var
 i,CAcc:integer;
 s1,id:string;
 regexpr:TRegExpr;

begin


while Work do
  begin
   CrS.Enter;
   Inc(Acc);
   if Acc<ss.Count then CAcc:=Acc else Work:=false;
   CrS.Leave;

   if Work then
begin

 regexpr:=TRegexpr.Create;
ss:=TStringList.create;
ss1:=TStringList.create;


id:=ss[Cacc];


  s1:=form1.IdHTTP1.Get('сайт'+id);
  RegExpr.InputString := s1;

RegExpr.Expression:= '<br><br>(.*?)<A HREF="(.*?)">';
if RegExpr.Exec (s1) then
repeat

ss1.Add(RegExpr.Match[2]);
form1.Memo2.Lines.Add(RegExpr.Match[2]);
until not RegExpr.ExecNext;




end;
ss.Free;
regexpr.Free;


end;

[VeTaL_UA]

Цитата: Сообщение от *Хalyava* нужно сделать многопоточный перебор этих ссылок

Почитай про крит. секции

[*Хalyava*]

Цитата: Сообщение от VeTaL_UA Почитай про крит. секции

я знаю про них.)
делал уже проекты многопоточные а здесь какая то чертовщина ))

P.s. зайдите пожалуйста в скайп .))


---------------
я так понимаю ошибка в критической секции ?

можете написать правильную ?))

[VeTaL_UA]

Цитата: Сообщение от *Хalyava* зайдите

Цитата: Сообщение от *Хalyava* можете

Ко мне на ты

[Mebius]

Цитата: Сообщение от *Хalyava* form1.Memo2.Lines.Add(RegExpr.Match[2]);

руки бы тебе за такое скрутить в бантик!

по делу... больше инфы дай
З.Ы. желательно или полное описание задачи с вариантом "взять отсюда (ссылка)" и тп или фулл код проги

[*Хalyava*]

я нашел выход из проблемы.
всем спасибо !=)

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

а теперь начинается самое непонятное для меня:

есть картинки. тематика Counter-Strike.
нужно открыть каждую картинку (это я уже сделал) и найти в каждой из них любой красный квадрат (именно квадрат). то есть ширина и высота красного элемента должны совпадать. этот квадрат будет располагаться рандомно. размер квадрата так же будет рандомный...

помогите реализовать. с таким я еще не сталкивался...
(бывает что на картинке несколько квадратов. достаточно найти только один)


пример этих квадратов:
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]