|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Передача параметров потоку
Имеется код
Код:
procedure wrk(param1, param2, param3:string; param4, param5: integer; out rslt:string); begin rslt:=param1+param2+param3+inttostr(param4+param5); end; procedure TForm1.Button1Click(Sender: TObject); var mvs:string begin wrk('1', '2', '3', 4, 5, mvs); showmessage(mvs) end; Появилась такая проблема, процедуру wrk необходимо выполнить в отдельном потоке, каким образом передать ей параметры? Пробовалось и CreateThread и TThread, но как передать процедуре параметры так и не понял. В сети полно примеров, но во всех примерах вызов процедуры проходит без параметров... |