【控件功能】我来做练习-PrimePool

大龙软件研发

于 2024-05-15 08:51:34 发布

阅读量766

点赞数 12

分类专栏：编程软件控件研究文章标签： DELPHI 开发语言笔记

本文链接：https://blog.csdn.net/reson100/article/details/138890055

版权

这篇博客介绍了PrimePool的核心源码，展示了如何在Delphi中实现一个质数计算任务，利用TThreadPool进行多线程处理。TPrimeTask类负责添加质数到输出列表，TPrimeWorker类执行实际的质数检查工作，而TPrimeManager则提供了管理和调度这些任务的机制。

摘要由CSDN通过智能技术生成

文章目录

PrimePool

提示：这里可以添加技术概要

请添加图片描述

核心源码

提示：这里可以添加技术整体架构
var
PrimeTask:TPrimeTask;
cc, Range, Steps, Start:Cardinal;
begin
LogMemo.Clear;

Start:=StrToInt(StartNumberEdit.Text);
Steps:=StrToInt(TaskCountEdit.Text);
Range:=StrToInt(TaskRangeEdit.Text);

PrimeTask:=TPrimeTask.Create(Self);
PrimeTask.OnStart:=Form1.TaskStart;
PrimeTask.OnCancel:=Form1.TaskCanceled;
PrimeTask.OnDone:=Form1.TaskDone;

for cc:=0 to Steps - 1 do
begin
	Primetask.FromNumber:=(cc * Range) + Start;
	PrimeTask.ToNumber:=(((cc + 1) * Range) - 1) + Start;

	TPrimeManager.Singleton.AddTask(PrimeTask);

	PrimeTask:=TPrimeTask(PrimeTask.Clone);
end;

end;