随笔分类 -  delphi

求一定值内的质数——
摘要：1 uses 2 System.SysUtils, 3 System.Generics.Collections, 4 System.Classes; 5 6 function ElementInDataDivides(data: TList<Integer>; value: Integer): bo 阅读全文
posted @ 2023-08-25 05:10 RulesOS 阅读(22) 评论(0) 推荐(0)
Delphi xe TTask 执行多线程，其实...完成任务后，一直在后台执行东西的。
摘要：uses System.Threading; //定义变量线程池 lpThreadPool: TThreadPool; //定义事件 procedure TForm1.log( lgoInfo : string ); begin Memo1.Lines.Add( '' ); Memo1.Lines. 阅读全文
posted @ 2022-10-08 04:08 RulesOS 阅读(928) 评论(0) 推荐(0)
CmdParse
摘要：Procedure URPOSE Uses Dos,Crt; Const VersionNum = 'V1.0 BETA'; ProgNameStr = 'NEWPROJ.EXE'; ProgNameShortStr = 'NP.EXE'; copyRightStr = ProgNameStr+' 阅读全文
posted @ 2016-02-27 20:17 RulesOS 阅读(346) 评论(0) 推荐(0)