- 博客(5)
- 资源 (3)
- 收藏
- 关注
RSS订阅原创 免费的Pascal开发工具
Free Pascal 是一个开源的 Pascal 编译器，支持多种 Pascal 方言，如 Turbo Pascal 和 Delphi。: 专为 Raspberry Pi 等嵌入式设备设计的 Pascal 开发环境，基于 Free Pascal。: 基于 Free Pascal 和 Lazarus 的扩展开发环境，提供更多组件和工具。: 基于 Free Pascal 的轻量级 IDE，适合初学者和小型项目。: GNU 项目的一部分，支持标准 Pascal 和部分扩展功能。: 界面简洁，易于上手。
2025-02-24 08:45:59
231
1原创 delphi 任意进制转换
function MyFunction(i,k:int64): string;function mod_num(n1, n2: int64): int64; //取余数begin result := n1 - n1 div n2 * n2 ;end;vara:TStack<string>;n,m:int64;begina:=TStack<string>.Create();n:=i;while n>=k dobe...
2021-01-27 13:41:14
766
原创 delphi Try except on e:Exception do
except on e:Exception do//判断单位转换率 try um_rate := vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat; if um_rate <= 0 then abort else if (vp_mstr.F('vp_...
2019-11-26 08:10:40
2323
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人