Форум АНТИЧАТ - Показать сообщение отдельно

Цитата:

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

Если 100 страниц читать лень про различные методы синхронизации, прочитай только о критических секциях, тебе хватит.
Если делфи или билдер, можешь использовать класс TThread с его Synchronize

может поможешь разобраться

начнем

Код:

TNewThread = class(TThread)    private    protected      procedure Execute; override;    public      constructor Create(CreateSuspended: Boolean);  end;

Код:

constructor TNewThread.Create(CreateSuspended: Boolean);  begin    inherited Create(CreateSuspended);  end;    procedure TNewThread.Execute;  
var  params, r, p, responseres : tstringlist;  i,a,b:integer;  n,s,user,user2:string;  
begin
for i:=1 to b do 
 begin
 IdHTTP1.Get('http://'+Form1.Edit1.Text+'/index.php?id='+i);
 i:=i+1;
 end;
end;

Код:

procedure TForm1.Button2Click(Sender: TObject);  begin   TNewThread.Create(false);  end;

что то вроде так...
и как его синхронизоватьь....