null

启动Free Pascal集成开发环境

输入图示代码(1)

输入图中代码(2)

输入图中所示代码(3)

输入图示代码(4

按下Ctrl+F9即可执行程序。

运行结果

可选择使用Setup Factory将程序打包为安装文件,便于部署与分发。

相关文章