- 博客(2)
- 收藏
- 关注
RSS订阅原创 Delphi给字符串补零
Delphi给字符串补零function AddZero(str: string; num: integer):string;var i:integer; temp:string;begin if num<=0 then begin Result:= str; exit; end; for i := 1 to num do begin temp:= temp + '0'; end; Result:= str + temp;en
2021-05-25 10:36:46
1224
原创 -255~0的integer数化为二进制补码
{——————————————————————————————————————————————————————————————————————————————— -255~0的integer数化为二进制补码————————————————————————————————————————————————————————————————————————————————}function IntToBinComplement(num: integer):str.
2021-05-25 10:32:24
516
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人