Потоки (Threads) в Делфи - как передать потоку параметры?
Почитав статьи, я что-то до конца не понял, как передавать потокам параметры.
Поток вызывается MyThread:=TMythread. create(false);
То, что будет выполнятся, описывается процедурой MyThread.execute, которой нельзя передать аргументы.
Как сделать, что бы одна и таже функция выполнялась в отдельном потоке, но обрабатывала разные данные ?
Например
Procedure RandomizeArray(var A:array[1....1000000] of integer]);
var x:integer
begin
for x:=1 to 1000000 do a[x]:=random(100);
end;
Надо запустить 4 этих процедуры в разных потоках, и с разными массивами. Что бы 1 функция одновременно заполняла 4 разных массива.
|