![]() |
|
#1
|
|||
|
|||
![]() Здравствуйте, только начал работать с потоками, пытаюсь разобраться, вот написал код:
Код:
procedure MyThread.Execute; begin //HTTP.Get('http://www.ya.ru'); Form1.Memo1.lines.add(str); end; procedure MyThread.htmlnavi; begin //HTTP.Get('http://www.ya.ru'); end; procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i:=0 to 6 do begin with MyThread.Create(true)do begin str:='Aaa'+inttostr(i); Resume; end; end; Получается, что здесь я создаю 6 потоков MyThread, а MyThread.Execute -это самый главный поток через который можно рулить созданными потоками ? В memo1 получается результат: Aaa6 (6 раз), а как мне сделать чтобы Aaa c 0 по 6 было? |