ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

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

Может ты не правильно создаеш? или недоконца доходит функция завершения.
когда создаеш поток то не забывай закрывать дискриптор

Вот:

Код:

procedure Getdata;
var
 len:integer;
 ret:string;
begin
form1.Memo2.Lines.Add(inttostr(random(111)));
ExitThread(0);
end;


procedure TForm1.Button8Click(Sender: TObject);
var
 thId:cardinal;
   i : Integer;
begin
For i := 1 to 100 do
begin
CreateThread(0,0,@Getdata,nil,0,thid);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 ws:TWSAData;
begin
 WsaStartup($202,ws);
 application.Title:='HTTP Sender';
end;

Это из HTTP Sender, но при попытки снова создать потоки получаем ошибку, я не думаю что здесь не доходит до: ExitThread(0);