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

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;