- 博客(3)
- 资源 (3)
- 收藏
- 关注
原创 delphi 任意进制转换
function MyFunction(i,k:int64): string; function mod_num(n1, n2: int64): int64; //取余数 begin result := n1 - n1 div n2 * n2 ; end; var a:TStack<string>; n,m:int64; begin a:=TStack<string>.Create(); n:=i; while n>=k do be...
2021-01-27 13:41:14 728
原创 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 2246
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人