Delphi進製轉換函式

二進位制轉換

function bintodec(value: string): integer;

var str: string;
i: integer;
begin
str := uppercase(value);
result := 0;
for i := 1 to length(str) do
result := result * 2 + ord(str[i]) - 48;
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;

function   hextochar(str:   string):   string;   

var 
i: integer; 
buf1: array[0..100] of byte; 
begin 
for i := 0 to (length(str) div 2 - 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 := 1 to (length(str)) do 
begin 
ch := str[i]; 
result := result + inttohex(byte(ch), 2); 
end; 
end;

function hextoint(s: string): integer;

begin //$代表16進製制
result:=strtoint('$'+s);
end;

function conertde(s:string):string; 

var //資料都是以二進位制的形式儲存
i:integer; 
begin 
for i:=1 to length(s) do 
result:=result+inttohex(ord(s[i]),2); 
end;

delphi 進製轉換

1.hextobin 十六進製制轉換二進位制 所在單元 classes delphi語法 functionhextobin text,buffer pchar bufsize integer integer 描述 呼叫hextobin函式轉換十六進製制字串到相應的二進位制值。text是乙個表示十六進...

delphi 進製轉換

1.hextobin 十六進製制轉換二進位制 所在單元 classes delphi語法 functionhextobin text,buffer pchar bufsize integer integer 描述 呼叫hextobin函式轉換十六進製制字串到相應的二進位制值。text是乙個表示十六進...

delphi 十進位制十六進製制轉換

delphi有提供十進位制轉換成十六進製制的函式 inttostr 返回值為string 十進位制轉十六進製制 var i integer str string begin i 255 showmessage inttohex i,2 ff 2表示返回的位數 另外，formart也有把十進位製用十六...