Имеется код
Код:
1 2 3 4 5 6 7 8 9 10 11 12 | 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, но как передать процедуре параметры так и не понял. В сети полно примеров, но во всех примерах вызов процедуры проходит без параметров...
03.08.2010, 07:23
Передача параметров потоку
Древовидный вид