[fpc-devel] Light weight threads for FPC

[Vinzent Hoefler]

On Thursday 13 December 2007 19:55, Mattias Gaertner wrote:
> Has someone already created a unit for light weight threads?
>
> Something like: Create a group of 4 threads named 0,1,2,3 and execute
> a procedure/method?

for i := 0 to 3 do
   Handle[i] := tThreadId(BeginThread (Func {tThreadFunc},
                                       @FuncArg[i]));

for i := 0 to 3 do
   Result[i] := WaitForThreadTerminate (Handle[i], 0);