Delphi 二进制字符与十进制互转

2019年3月20日 218次阅读 来源: 进制转换
  1. //二进制字符转十进制
  2. Function binToDec(Value :string) : integer;
  3. VAR
  4. str : String;
  5. Int : Integer;
  6. i : integer;
  7. BEGIN
  8.     Str := UpperCase(Value);
  9.     Int := 0;
  10.     FOR i := 1 TO Length(str) DO
  11.     Int := Int * 2+ ORD(str[i]) – 48;
  12.     Result := IntToStr(Int);
  13. end;
  15. //十进制转二进制
  16. function mod_num(n1,n2:integer):integer;//取余数
  17. begin
  18.      result:=n1-n1 div n2*n2
  19. end;
  20. function reverse(s:String):String;//取反串
  21. Var
  22. i,num:Integer;
  23. st:String;
  24. begin
  25.      num:=Length(s);
  26.      st:=”;
  27.      For i:=num DownTo 1 do
  28.      Begin
  29.           st:=st+s[i];
  30.      End;
  31.      Result:=st;
  33. end;
  35. Function DecTobin(Value :Integer) : string;//十进制转化二进制
  36. Var
  37.    ST:String;
  38.    N:Integer;
  39. Begin
  40.      ST:=”;
  41.      n:=value;
  42.      While n>=2 Do
  43.      Begin
  44.           st:=st+IntToStr(mod_num(n,2));
  45.           n:=n div 2;
  46.      End;
  47.      st:=st+IntToStr(n);
  48.      Result:=reverse(st);
  50. End;
    原文作者：进制转换
    原文地址: https://blog.csdn.net/qiume/article/details/3725556
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞