本文整理自网络,侵删。
一个判断素数的简单例子:function IsPrime (N: Integer): Boolean;var Test: Integer;begin IsPrime := True; for Test := 2 to N - 1 do if (N mod Test) = 0 then begin IsPrime := False; break; {jump out of the for loop} end;end;
相关阅读 >>
Delphi 隐藏进程的单元 unit hideprocess.pas
Delphi windows 编程[19] - 改变菜单项的状态: getmenustate、enablemenuitem
Delphi xe 如何实现("再按一次退出") 然后退出程序
python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本
更多相关阅读请进入《Delphi》频道 >>