24 lines
637 B
ObjectPascal
24 lines
637 B
ObjectPascal
uses OpenCLABC;
|
||
|
||
begin
|
||
|
||
// Запустите "Прекомпилировать.pas", чтобы создать этот файл
|
||
{$resource 0.cl.temp_bin}
|
||
|
||
var prog := ProgramCode.DeserializeFrom(Context.Default,
|
||
System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream('0.cl.temp_bin')
|
||
);
|
||
|
||
// Дальше всё так же как в "0Простейшие примеры\SimpleAddition"
|
||
|
||
var A := new CLArray<integer>(10);
|
||
|
||
prog['TEST'].Exec1(10, // Используем 10 ядер
|
||
|
||
A.NewQueue.ThenFillValue(1)
|
||
|
||
);
|
||
|
||
A.GetArray.Println;
|
||
|
||
end. |