Delphi 二进制字符与十进制互转
2014年02月09日
⁄ 综合
⁄ 共 789字 ⁄ 字号
小 中 大
- Function binToDec(Value :string) : integer;
- VAR
- str : String;
- Int : Integer;
- i : integer;
- BEGIN
- Str := UpperCase(Value);
- Int := 0;
- FOR i := 1 TO Length(str) DO
- Int := Int * 2+ ORD(str[i]) - 48;
- Result := IntToStr(Int);
- end;
-
- function mod_num(n1,n2:integer):integer;
- begin
- result:=n1-n1 div n2*n2
- end;
- function reverse(s:String):String;
- Var
- i,num:Integer;
- st:String;
- begin
- num:=Length(s);
- st:='';
- For i:=num DownTo 1 do
- Begin
- st:=st+s[i];
- End;
- Result:=st;
-
- end;
-
- Function DecTobin(Value :Integer) : string;
- Var
- ST:String;
- N:Integer;
- Begin
- ST:='';
- n:=value;
- While n>=2 Do
- Begin
- st:=st+IntToStr(mod_num(n,2));
- n:=n div 2;
- End;
- st:=st+IntToStr(n);
- Result:=reverse(st);
-
- End;