|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.12.2010, 09:50 | #1 |
Регистрация: 03.12.2010
Сообщений: 5
|
Как узнать номер потока из самого потока?
Как узнать номер потока
потоки запускаю вот так var Form1: TForm1; tid:array[1..999] of integer; implementation {$R *.dfm} procedure ThreadFunc; var i:integer; begin for i:=1 to 1000 do form1.label1.caption:=inttostr(i); end; procedure TForm1.Button1Click(Sender: TObject); var id:longword; i:integer; begin t:=strtoint(edit1.Text); for i:=1 to t do tid[i]:=beginthread(nil,0,Addr(ThreadFunc ),nil,0,id); end; Нужно чтобы поток знал свой номер например showmessge('#'+НОМЕР ПОТОКА+': делаю ......') |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
...узнать адрес потока?... | maxvip | HTML и CSS | 11 | 23.12.2015 00:30 |
как открыть форму из потока | jskorvin | Общие вопросы Delphi | 8 | 13.08.2013 10:25 |
Номер потока | KoBRaAndrey | Общие вопросы Delphi | 1 | 01.06.2010 02:27 |
Как завершить программу из неосновного потока? | itni | Общие вопросы C/C++ | 0 | 29.05.2010 16:42 |
Как проверить существование потока? | John_chek | Общие вопросы Delphi | 3 | 17.01.2008 15:16 |