Delphi中的进制转换

本文整理自网络，侵删。

 
Delphi中的几种进制转换函数

非原创，收藏供查询。

二进制转换

function binToDec(Value: string): integer;
var
  str: string;
  i: integer;
begin
  Str := UpperCase(Value);
  result :=0;
for i :=1to Length(str) do
    result := result *2+ ORD(str[i]) -48;
end;
 
functionmod_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 downto1do
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 >=2do
begin
    st := st + IntToStr(mod_num(n, 2));
    n := n div2;
end;
  st := st + IntToStr(n);
  Result := reverse(st);
end;
16进制转字符

function   HexToChar(Str:   string):   string;   
var
      i:   integer;   
      buf1:   array[0..100]   of   byte;   
begin
for   i   :=0to   (length(Str)   div2-1)   do
begin
          buf1[i]   :=   strtoint('$'+   copy(Str,   i   *2+1,   2));   
          Result   :=   Result   +   char(buf1[i]);   
end;   
end;   
 
function   CharToHex(Str:   string):   string;   
var
      i:   integer;   
      ch:   char;   
begin
for   i   :=1to   (length(str))   do
begin
          ch   :=   Str[i];   
          Result   :=   Result   +   inttohex(byte(ch),   2);   
end;   
end;
16进制转十进制

function hextoint(s: string): Integer;
begin//$代表16进制
  Result:=StrToInt('$'+s);
end;
数据转换成二进制

function conertde(s:string):string; 
var//数据都是以二进制的形式保存
i:integer; 
begin
for i:=1to length(s) do
   result:=result+inttohex(ord(s[i]),2); 
end;
 Delphi键盘按键伪码
 

相关阅读 >>

Delphi 自带gif控件的动画图片加载和播放

Delphi 获取cpu monitor使用率

Delphi xe tparallel.for的用法

Delphi 服务操作

Delphi 游戏是如何检测到有od等调试工具的

Delphi 创建win桌面快捷方式，实现360桌面图标数字提示 或 类似安卓的右上角的数字提示

Delphi 调用dll运行正常，退出时弹出错误解决办法

Delphi开启和关闭windows xp 防火墙

进程隐藏的Delphi代码

Delphi 延时程序

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi中的进制转换