13 lines
298 B
ObjectPascal
13 lines
298 B
ObjectPascal
unit NamedQData;
|
|
|
|
uses OpenCLABC;
|
|
|
|
function NamedQ(name: string; delay: integer := 1000) :=
|
|
HPQ(()->
|
|
begin
|
|
lock output do Writeln($'Очередь {name} начала выполнятся');
|
|
Sleep(delay);
|
|
lock output do Writeln($'Очередь {name} выполнилась');
|
|
end);
|
|
|
|
end. |