var ThreadPool:=TThreadPool.Create;

Question

var ThreadPool:=TThreadPool.Create;

ThreadPool.MaxWorkerThreads:=1;
Writeln('ThreadCount: '+ThreadPool.MaxWorkerThreads.ToString);
MultiThread:=True;
var LoadTask:=TTask.Create(procedure begin
TParallel.For(0,JobList.High,procedure (i: integer) begin
var Job:=JobList[i];
Job.Progress:='Start';
var FDCN:=TFDConnection.Create(nil);
ConnectToSource(FDCN);
Job.Progress:='Processing';
ExportTable(FDCN,TableName,RowsetSize,Job);
Job.Progress:='Done';
end,ThreadPool);
end);

Почему выполняется более одного Job за раз?!

#lazarus #programming #russian

0

14.10.2024

1 ответов

29 просмотров

Alexander 👋 · Accepted Answer

Alexander 👋

Какая версия делфи? Последняя?

0

14.10.2024

169 похожих чатов

var ThreadPool:=TThreadPool.Create;

1 ответов

Похожие вопросы