- 博客(3)
- 资源 (3)
- 收藏
- 关注
原创 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 729
原创 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 2252
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人