delphi -- 进制转换 函数表

1.16 TO 10

********************************************************

16转10，否则输出-1

function Hex(c: char): Integer;
var
  x: Integer;
begin
  if ( Ord(c)>= Ord(‘0‘)) and (Ord(c) <= Ord(‘9‘)) then
    x:= Ord(c) - Ord(‘0‘)
  else if (Ord(c) >= Ord(‘a‘)) and (Ord(c) <= Ord(‘f‘)) then
    x:= Ord(c) - Ord(‘a‘) + 10
  else if (Ord(c) >= Ord(‘A‘)) and (Ord(c) <= Ord(‘F‘)) then
    x:= Ord(c) - Ord(‘A‘) + 10
  else
    x:= -1;                                       //输入错误
  Result:= x;
end;

2.字符 TO 10

***************************************************************
该函数接收1~2个，字符转换成功后输出对应10进制数的值，否则输出-1

function HexToInt(Str: string): Integer;
var
  tmpInt1, tmpInt2: Integer;
begin
  if Length(Str) = 1 then
  begin
    Result:= Hex(Str[1]);
  end
  else if Length(Str) = 2 then
  begin
    tmpInt1:= Hex(Str[1]);
    tmpInt2:= Hex(Str[2]);
    if (tmpInt1 = -1) or (tmpInt2 = -1) then
      Result:= -1
    else
      Result:= tmpInt1 * 16 + tmpInt2;
  end
  else
    Result:= -1;                                  //输入错误，转换失败
end;

3.字符串 TO ASCII码

*******************************************************************
字符串转换成ASCII码字符串

function StrToHexStr(const S: string): string;
var
  i: Integer;
begin
  for i:= 1 to Length(S) do
  begin
    if i = 1 then
      Result:= IntToHex(Ord(S[1]), 2)
    else
      Result:= Result + ‘ ‘ + IntToHex(Ord(S[i]), 2);
  end;
end;

4.字符串去掉所有空格

***********************************************************************

该函数去掉字符串中所有空格

function TrimAll(Str: string): string;
var
  mLen, i: Integer;
begin
  mLen:= Length(Str);
  //初始化返回值
  Result:= ‘‘;
  for i:= 0 to mLen do
  begin
    //是空格就去掉
    if Str[i] = ‘‘ then
      Continue;
    Result:= Result + Str[i];
  end;
end;

5.10 TO 2

**************************************************
十进制转换成二进制字符串

function DTob(decimal:longint):string;
const symbols:string[16]=‘01‘;
var
  scratch:string;
  remainder:byte;
begin
  repeat
    remainder:=decimal mod 2;
    scratch:=symbols[remainder+1]+scratch;
    decimal:=decimal div 2;
  until(decimal=0);
  result:=scratch;
end;

6.10 TO16字符

**************************************************
1.十进制转换成十六进制字符串

function DToHex(decimal:longint):string;
const symbols:string[16]=‘0123456789abcdef‘;
var
  scratch:string;
  remainder:byte;
begin
  repeat
    remainder:=decimal mod 16;
    scratch:=symbols[remainder+1]+scratch;
    decimal:=decimal div 16;
  until(decimal=0);
  result:=scratch;
end;

2.十进制转十六进制字符

var HexArr: array[1..15]of string= (‘1‘,‘2‘,‘3‘,‘4‘,‘5‘,‘6‘,‘7‘,‘8‘,‘9‘,‘A‘,‘B‘,‘C‘,‘D‘,‘E‘,‘F‘);

function Int2Hex(Value: Integer): string;
    var
      iTemp: Integer;
      i: Integer;
    begin
      Result :=‘‘;
      i := 0;
      while i<4 do
      begin
        case i of
          0: iTemp := Value shr 24 and $FF;
          1: iTemp := Value shr 16 and $FF;
          2: iTemp := Value shr 8 and $FF;
          3: iTemp := Value and $FF;
        end;
        if not Boolean(iTemp) then Result := Result + ‘00‘
        else
        begin
          Result := Result + HexArr[iTemp div 16];
          Result := Result + HexArr[iTemp mod 16];
        end;
        Inc(i);
      end;
    end;

7.字符串 TO 16进制

*************************************************************************

Eidt1.Text:=StrToInt(‘$‘+‘0000FFFF‘);   //65535

2>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

unit Unit2;

interface
uses
SysUtils,Math;
type
TConversion = class
public
    //10 进制 to 2,8,16 进制
    function inttoBitStr(intstr: string): string;
    function IntToHexStr(intStr: string): String;//10 = 2
    function IntToOStr(intstr : string): string;//?????

//2进制 to 10,8,16 进制
    function BittoInt(BitStr:   String):   LongInt;// 2 = 10
    function BitStrToHextStr(const   BitStr   :   String)   :   String;//2 = 16
    function BitStrToOStr(const   BitStr   :   String)   :   String;//2 = 8

//16 > 10 2   8 进制
    function HextoIntStr(HexStr: String): string;
    function HexToBitStr(HexStr:   string): string;
    function HexToOStr(HexStr:   string): string;
   
    //八进制转换成二进制字符串
    function OtoBitStr(O : string):string;
    function OtoIntStr(O : string):string;
    function OtoHexStr(O : string):string;
end;
var
TC :TConversion;

implementation

{ TConversion }
//2 进制 to 10 进制

function TConversion.BittoInt(BitStr: String): LongInt;
var
      i,Size:   Integer;
begin
      Result:=0;
      Size:=Length(BitStr);
      for   i:=Size   downto   1   do
      begin
        //例如 1010
          if Copy(BitStr,i,1)=‘1‘   then
            Result:=Result+(1   shl   (Size-i));
      end;
//第二种方法
//二进制转换为十进制 start
{
VAR
str : String;
Int : Integer;
i : integer;

Str := UpperCase(Edit1.Text);
Int := 0;
FOR i := 1 TO Length(str) DO
    Int := Int * 2 + ORD(str[i]) - 48;
Edit2.Text:=IntToStr(int);
}
//二进制转换为十进制 end；
//第三中方法
{
function hextoint(s: string): Double;
begin
while Length(s) <>0 do
begin              //2^(长度-1)次方
    if s[1]=‘1‘ then Result:=Result+power(2,Length(s)-1);
    s:=Copy(s,2,Length(s));
end
end;
}
end;

function TConversion.BitStrToHextStr(const BitStr: String): String;
var
vD : Byte;
I : Integer;
vHextStr : String;
vP : PChar;
vLen : Integer;
begin
vLen := Length(BitStr);
if vLen mod 4 > 0 then
begin
    SetLength(vHextStr,   vLen   div   4   +   1);
    vLen := vlen div 4 + 1;
end
else
begin
    SetLength(vHextStr,   vLen   div   4);
    vLen := vlen div 4 ;
end;

//初始化
vD := 0;
vP := PChar(BitStr)+length(BitStr)-1;
I := 0;   //开始计数

while vP^ <> #0 do
begin
    if vp^ = ‘1‘ then
    begin
      case i of
      0:      vD :=vd+1;
      1:      vD :=vd+2;
      2:      vD :=vd+4;
      3:      vD :=vd+8;
      end;
    end;

Dec(vP);
    Inc(I);
    if I = 4 then
    begin
      case vD of
        0..9 : vHextStr[vLen] := Chr(vD + $30);
        10..15 : vHextStr[vLen] := Chr(vD - 10 + $41);
      end;
      Dec(vLen);
      I   :=   0;
      vD   :=   0;
    end;
end;

if I > 0then
begin
    case   vD   of
      0..9 : vHextStr[vLen] := Chr(vD + $30);
      10..15 : vHextStr[vLen] := Chr(vD + $41);
    end;
end;

Result := vHextStr;
end;

function TConversion.BitStrToOStr(const BitStr: String): String;
var
vD : Byte;
I : Integer;
vHextStr : String;
vP : PChar;
vLen : Integer;
begin
vLen := Length(BitStr);
if vLen mod 3 > 0 then
begin
    SetLength(vHextStr,   vLen   div   3   +   1);
    vLen := vlen div 3 + 1;
end
else
begin
    SetLength(vHextStr,   vLen   div   3);
    vLen := vlen div 3 ;
end;

//初始化
vD := 0;
vP := PChar(BitStr)+length(BitStr)-1;
I := 0;   //开始计数

while vP^ <> #0 do
begin
    if vp^ = ‘1‘ then
    begin
      case i of
      0:      vD :=vd+1;
      1:      vD :=vd+2;
      2:      vD :=vd+4;
      end;
    end;

Dec(vP);
    Inc(I);
    if I = 3 then
    begin
      case vD of
        0..9 : vHextStr[vLen] := Chr(vD + $30);
      end;
      Dec(vLen);
      I   :=   0;
      vD   :=   0;
    end;
end;

if I > 0then
begin
    case   vD   of
      0..9 : vHextStr[vLen] := Chr(vD + $30);
    end;
end;

Result := vHextStr;
end;

function TConversion.HexToBitStr(HexStr: string): string;
const
      cBitStrings:   array[0..15]   of   string   =
(
‘0000‘,   ‘0001‘,   ‘0010‘,   ‘0011‘,
‘0100‘,   ‘0101‘,   ‘0110‘,   ‘0111‘,
‘1000‘,   ‘1001‘,   ‘1010‘,   ‘1011‘,
‘1100‘,   ‘1101‘,   ‘1110‘,   ‘1111‘
);
var
I:   Integer;
begin
Result   :=   ‘‘;
for   I   :=   1   to   Length(HexStr)   do
      Result   :=   Result   +   cBitStrings[StrToIntDef(‘$‘   +   HexStr[I],   0)];
while   Pos(‘0‘,   Result)   =   1   do   Delete(Result,   1,   1);
end;   {   HexToBit   }

function TConversion.HextoIntStr(HexStr: String): string;
begin
result:= IntToStr(StrToInt(‘$‘ + (HexStr)));
end;

function TConversion.HexToOStr(HexStr: string): string;
begin
Result := BitStrToOStr(HexToBitStr(HexStr));
end;

function TConversion.inttoBitStr(intstr: string): string;
var
i :Integer;
begin
i := StrToInt(intstr);
while i <>0 do
begin              //i mod 2取模,再使用format格式化
   result:=Format(‘%d‘+result,[i mod 2]);
   i:=i div 2
end
end;
//10进制装换 2进制 第二种方法
{function TConversion.IntToBitStr(Value, Size: Integer): String;
var
i: Integer;
begin
Result:=‘‘;
for i:=Size-1 downto 0 do begin
    if Value and (1 shl i)<>0 then begin
       Result:=Result+‘1‘;
end else begin
       Result:=Result+‘0‘;
end;
end;
end;}

function TConversion.IntToHexStr(intStr: string): String;
begin
    Result:=inttoBitStr(intstr);
end;

function TConversion.IntToOStr(intstr: string): string;
begin
Result := BitStrToHextStr(inttoBitStr(intstr));
end;

function TConversion.OtoBitStr(O: string): string;
const
      cBitStrings:   array[0..7]   of   string   =
(
‘000‘,   ‘001‘,   ‘010‘,   ‘011‘,
‘100‘,   ‘101‘,   ‘110‘,   ‘111‘
);  
var
i,j:   Integer;
begin
Result   :=   ‘‘;
for   I   :=   1   to   Length(o)   do
begin
    j:=strtoint(o[i]);
    Result   :=   Result   +   cBitStrings[j];
end;
while   Pos(‘0‘,   Result)   =   1   do   Delete(Result,   1,   1);
end;
function TConversion.OtoHexStr(O: string): string;
begin
Result :=BitStrToHextStr(OtoBitStr(o));
end;

function TConversion.OtoIntStr(O: string): string;
begin
Result := OToIntStr(OtoBitStr(o));
end;

end.

时间： 2024-10-04 13:22:06

delphi -- 进制转换 函数表的相关文章

delphi 进制转换

----二进制到16进制 function BinaryToHex(strBinary: string): string;var  vD: Byte;  i: integer;  vHextStr: String;  vP: PChar;  vLen: integer;begin  vLen := length(strBinary);  if vLen mod 4 > 0 then  begin    SetLength(vHextStr, vLen div 4 + 1);    vLen :=

03 php 数据类型：整数，进制转换，浮点，字符，布尔，数组，空类型，类型转换，算术运算，比较运算

03 数据类型:整数,进制转换,浮点,字符,布尔,数组,空类型,类型转换, 算术运算,比较运算,逻辑运算,短路现象, 三目运算符,字符型运算: 数据类型 整体划分 标量类型: int, float, string, bool 复合类型: array,     object 特殊类型: null,     resouce 整数类型int, integer 3种整数表示法 十进制写法:123: $n1 = 123; 八进制写法: 0123 $n2 = 0123; 十六进制写法: 0x123 $n3

任意进制转换算法

任意进制转换算法 N年没有写博客,发个进制转换的玩下,支持负数:功能属于简化版的 Convert.ToInt32 ,特点是: 1.任意位,如:0,1(二进制),0...7(八进制),0...9,A...F(16进制),0...N(N进制),或者是:[email protected]#$%^&*(8进制,字符符号),也可以是中文. 2.8 byte 最大长度. 3.C#源码. 最近写markdown格式习惯啦,cnblogs啥时候全改掉算了,别用这个htmleditor算了. 先说明下进制转换的基

计算机进制转换

一.计算机只认识0和1,二进制. 二.2进制转换成 8进制 和 16进制,如下图: 二进制 > 八进制 :  研究上图发现,3位最高二进制可以用来表示一位八进制.所以,将二进制分解每3位,不够前面补0,然后每3位转换为10进制,顺序排列即可. 二进制 > 十六进制  :4位最高二进制可以用来表示一位十六进制.所以,将二进制分解每4位,不够前面补0,然后每4位转换为10进制,超过9用字母表示即可.顺序排列即可. 如下: 二进制 > 十进制:   11001001 = 2^7+2^6+2^3

原理之一，进制转换

原理之一,进制转换 日常生活中采用个数字都是十进制,而计算机采用的是运算更简单.易实现且可靠,为逻辑设计提供了有力途经的二进制,除此之外还有八进制和十六进制作为二进制的缩写. 进制:逢N进一,N是每种进位计数制表示一位数所需要的符号数目为基数. 二进制:逢二进一,借一当二,包含的数字(0.1) 八进制:逢八进一,借八当一,包含(0.1.2.3.4.5.6.7) 十六进制:逢十六当一,以一当十六,包含(0.1.2.3.4.5.6.7.8.9.10(A).11(B).12(C).13(D).14(E

NOIP2000 进制转换

题一   进制转换              (18分)  问题描述      我们可以用这样的方式来表示一个十进制数: 将每个阿拉伯数字乘以一个以该数字所处位置的(值减1)为指数,以10为底数的幂之和的形式.例如:123可表示为 1*102+2*101+3*100这样的形式. 与之相似的,对二进制数来说,也可表示成每个二进制数码乘以一个以该数字所处位置的(值-1)为指数,以2为底数的幂之和的形式.一般说来,任何一个正整数R或一个负整数-R都可以被选来作为一个数制系统的基数.如果是以R或-R为基

进制进制进制~转换

从刚学计算机器就对进制转换有着莫名的反感,2进制 8进制 10进制 16进制各种转换. 下面就说下逻辑地址转换成物理地址的求法吧 首先,用户输入一个16进制的数字cin>>hex>>logic_add;   hex的意思是告诉计算机输入的数是以16进制方式输入的 这个时候你要是输出cout<<logic_add;  你会发现输出的是把这个16进制的数转换为10进制以后输出的结果 cout<<hext<<logic_add;这样输出的才是16进制.

黑马程序员------进制转换

------<a href="http://www.itheima.com" target="blank">Java培训.Android培训.iOS培训..Net培训</a>.期待与您交流! ------- 在java中数字的表现形式一般有二进制,八进制,十进制,十六进制等,在平时的编程中我们可以通过java提供的API函数方便的实现各个进制间的转换,如:Integer.toHexString(int i)--十进制转十六进制:Integer

c语言之进制转换（栈实现）

从上两篇博客中我们可以知道,栈具有后进先出的特性,而进制转换的打印输出刚好与计算过程相反,满足栈这后进先出的特性, 所以可以用栈很快的实现进制转换,下面是用栈实现进制转换的c函数 void conversion (SqStack *pstack,unsigned int N, const unsigned int d){ if( pstack == NULL)//当传入参数为指针,必须判空 exit(-1); int mod ;//保存mod = N %d while( N != 0){ mod