Условие if выводит из цикла

[dlauser]

Привет. Есть некий код,

begin
     for i := 0 to urls.Count-1 do
        begin
   link1:=urls.Strings[i];
i2:=Copy(link1,1, Pos('=', link1));
web:=Form2.IdHTTP1.Get(i2+'page1');
if Pos('yeaah', web) = 0 then
   Form2.Memo1.Lines.Add(i2);

Проблема в том, что условие выводит из цикла. Как переделать?
Пробовал и гото и с циклом по другому.

[volod3000]

А так

for i := 0 to urls.Count-1 do begin
   link1:=urls.Strings[i];
i2:=Copy(link1,1, Pos('=', link1));
web:=Form2.IdHTTP1.Get(i2+'page1');
if Pos('yeaah', web) = 0 then begin
   Form2.Memo1.Lines.Add(i2);
end; end; // добавить

[dlauser]

И так проходит один раз и выходит из цикла

[chertovich]

urls.Count чему равен, не 1?
if не может вывести из цикла, это может только Break, Exit, исключительные ситуации и тд.

[dlauser]

urls.Count чему равен, не 1?

20 равен.

Весь код, может проблема где-то глубже

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    IdHTTP1: TIdHTTP;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Form2: TForm2;
   urls:TStringList;
implementation

{$R *.dfm}

procedure TNewThread.Execute;
var
i:integer;
link1,i2:String;
web:String;
begin
     for i := 0 to urls.Count-1 do begin
   link1:=urls.Strings[i];
   i2:=Copy(link1,1, Pos('=', link1));
   //Form2.Memo1.Lines.Add(i2+'page1');

        web:=Form2.IdHTTP1.Get(i2+'page1');

        if Pos('yeaah', web) = 0 then begin
   Form2.Memo1.Lines.Add(i2)
        end
        end;

end;

procedure TForm2.Button1Click(Sender: TObject);
var
  NewThread: TNewThread;
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;

end;

procedure TForm2.FormCreate(Sender: TObject);
begin
urls:=TstringList.Create;
urls.LoadFromFile('urls-list.txt');
Form2.Label2.Caption:=intTOstr(urls.Count);
end;

end.

[xrob]

а у вас точно urls.Count = 20, или в файле 20 строк?
попробуйте так:

for i:=0 to 20-1 do
begin ... end;

если проканает - значит urls.Count != 20
отобразите содержимое urls в memo, например.

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

кстати, нафига вам поток?
ах, да...
ну попробуйте тогда либо вообще без потока,
либо в поток запихнуть непосредственно только IdHTTP1.Get(...);
а все остальное без вне потока.

[GunSmoker]

И так проходит один раз и выходит из цикла

Как вы это определяете?

[astecenko]

А из потока к Form2.Memo1 не через синхронизацию хотя бы надо обращаться?

[evg_m]

for i := 0 to urls.Count-1 do
ВЫЧИСЛЕНИЕ ГРАНИЦ ЦИКЛА (для FOR) выполняется один раз ДО ВХОДА.
сответсвенно
Form2.Memo1.Lines.Add(i2);
Влияния на число повторов (границы цикла) не оказывает.
была вначале одна строка и выполнится одни раз.
используйте while

 i := 0
while i<urls.Count do begin
.....
i:=i+1;
end;

[Serge_Bliznykov]

evg_m, мне кажется, что Ваш пост немножко "не в тему"!
Какое отношение Form2.Memo1 имеет к urls.Count ?!
urls читается из файла и в цикле не изменяется. Зачем менять цикл FOR на цикл While - не понятно...