2. 程式人生 > >delphi 進制轉換

delphi 進制轉換

阿新 • • 發佈：2017-06-16
進制


----二進制到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 := vLen div 4 + 1;
end
else
begin
SetLength(vHextStr, vLen div 4);

vLen := vLen div 4;
end;

// 初始化
vD := 0;
vP := PChar(strBinary) + length(strBinary) - 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 > 0 then
begin
case vD of
0 .. 9:
vHextStr[vLen] := Chr(vD + $30);
10 .. 15:
vHextStr[vLen] := Chr(vD + $41);
end;
end;

Result := vHextStr;
end;


---16進制到二進制

function HextoBinary(hex: string): string;

const

BOX: 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

for i := length(hex) downto 1 do

Result := BOX[StrToInt(‘$‘ + hex[i])] + Result;

end;


-----十六進制到10進制

function HexToInt2(hex: AnsiString): integer;
var
i: integer;
function Ncf(num, f: integer): integer;
var
i: integer;
begin
Result := 1;
if f = 0 then
exit;
for i := 1 to f do
Result := Result * num;
end;
function HexCharToInt(HexToken: Ansichar): integer;
begin
if Ord(HexToken) > 97 then
HexToken := Ansichar(Chr(Ord(HexToken) - 32));
Result := 0;
if (Ord(HexToken) > 47) and (Ord(HexToken) < 58) then { chars 0....9 }
Result := Ord(HexToken) - 48
else if (Ord(HexToken) > 64) and (Ord(HexToken) < 71) then { chars A....F }
Result := Ord(HexToken) - 55;
end;

var
a16int: integer;
ancf: integer;
begin
Result := 0;
hex := ansiuppercase(trim(hex));
if hex = ‘‘ then
exit;
for i := 1 to length(hex) do
// result := result + HexCharToInt(hex[i]) * ncf(16, length(hex) - i);
begin
a16int := HexCharToInt(hex[i]);
ancf := Ncf(16, length(hex) - i);
Result := Result + a16int * ancf;
end;
end;

--------------------------------------------------------------------------------

delphi中有直接把10進制轉換成16進制的函數 ：

function IntToHex(Value: Integer; Digits: Integer): string;
overload;

function IntToHex(Value: Int64; Digits: Integer): string; overload;

unit uConversion;

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 > 0 then
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 > 0 then
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.

本文出自 “一切有為法，如夢幻泡影” 博客，請務必保留此出處http://kaixinbuliao.blog.51cto.com/2567365/1937471

delphi 進制轉換

相關推薦

delphi 進制轉換

進制----二進制到16進制function BinaryToHex(strBinary: string): string;var vD: Byte; i: integer; vHextStr: String; vP: PChar; vLen: integer;begin vLen := leng

Delphi中的進制轉換

fun div value con cto span phi function reverse 二進制轉換 function binToDec(Value: string): integer; var str: string; i: integer;

最全面的Java字節byte操作,處理Java基本數據的轉換及進制轉換操作工具,流媒體及java底層開發項目常用工具類

進制 string 常用工具類 cat i++ logs 指定位置 tput off 前言：用於處理Java基本數據的轉換及進制轉換操作工具 一、實現功能 1、int預byte互轉 2、int與byte[]互轉 3、short與byte互轉 4、short與byte[]互轉

1015. Reversible Primes (20)(數論:素數、進制轉換)

file ces tell pre ecif ont you none bre A reversible prime in any number system is a prime whose "reverse" in that number system is also

杭電2031 進制轉換

panel 兩個 mem title 轉換成 ron 轉換 () 進制 進制轉換 Time Limit: 2000/1000 MS (Java/Others) Memory Limit: 65536/32768 K (Java/Others)Total Submiss

進制轉換及位運算符

index 位運算 其余 dia 間接 cbe 不足 hot 十六進制 二進制與十進制之間的轉換 1 十進制轉二進制 方法為：十進制數除2取余法，即十進制數除2，余數為權位上的數，得到的商值繼續除2，依此步驟繼續向下運算直到商為0為止。 （具體

java基礎：十進制轉換到任意進制

分享 margin image ima 基礎 取余 bsp family com 十進制轉換到其他進制： 除基取余，直到商為0，余數反轉。 java基礎：十進制轉換到任意進制

九度-題目1138：進制轉換

i++ 十進制 ring str 進制數 ble for 進制 進制轉換 http://ac.jobdu.com/problem.php?pid=1138 題目描述： 將一個長度最多為30位數字的十進制非負整數轉換為二進制數輸出。 輸入： 多組數據，每行為一個長度不超過

編程算法基礎-2.3進制轉換

split -c val character -s 割點 12px 轉換 isdigit 2.3進制轉換 使用int存一個整數時。內存中是用二進制存儲的，當要顯示的時候。用十進制顯示。 隨意進制間的轉換 n進制轉m進制 String s = “2001201102” 3

2~62位任意進制轉換（c++）

rtmp end iostream 思路 [0 代碼 () objc blog 進制轉換的符號表為[0-9a-zA-Z]，共61個字符，最大可表示62進制。 思路是原進制先轉換為10進制，再轉換到目標進制。 疑問： 　　對於負數，有小夥伴說可以直接將符號丟棄，按照整數

#18 cisco設備系統操作與計算機的進制轉換

cisco設備系統操作與計算機的進制轉換cisco設備的操作系統： IOS：Internetwork Operating System，互聯網絡操作系統，BSDUNIX簡化版 交換機IOS：幾兆大小 路由器IOS：幾十兆大小Huawei 或者 H3C的操作系統： Comware：Communi

C++ 移位運算與進制轉換 淺析

十進制 ng- ostream font col urn line 繼續 adding 移位運算包括“邏輯移位”（logical shift）和“算術移位”（arithmetic shift）。 邏輯移位：移出去的位丟棄，空缺位（vacant bit）用 0 填充。

進制轉換與數字存儲實例

mage 有符號 說明 log 二進制表示 浮點數存儲 精度 規範 c語言 　　說明：本實例基於C語言編寫 一、進制轉換 　　1）、十進制轉其它進制 　　DEC轉BIN：N=25 　　(25)2=11001 　　 　　DEC轉OCT：N=125 　　(125)8

JavaScript常用技巧之進制轉換

string 十進制轉二進制 進制 rip javascrip clas 二進制轉十進制 pre div 一、十進制轉二進制 (8).toString(2) 二、二進制轉十進制 parseInt("1000",2) JavaScript常用技

javascript 進制轉換(2進制、8進制、10進制、16進制之間的轉換)

code alt 進制 scrip pan tostring var 其他 javascrip //十進制轉其他 var x=110; alert(x); alert(x.toString(8)); alert(x.toString(32)); aler

二進制和十進制轉換

src logs blog ges 排列 相加 font -1 正整數 註：八進制、十六進制和二進制同理，只不過將2換成8或16 二進制轉換 正整數轉成二進制：除二取余，直到商為零，然後倒序排列，高位補零。 例：42的二進制為：00101010 小數轉換為二進制：乘二

【模板小程序】2~62位非負數任意進制轉換，包含合法性檢查

code 中間 lower col while num 負數 tolower gin 1 //進制轉換模塊 2 #include <iostream> 3 #include <string> 4 #include <c

進制轉換（負進制） Luogu 1017

through amp turn cstring 十進制數 log 現在 處理 can 最近匆忙刷題，突然發現自己數學廢掉了 ，居然忘了進制轉換了QAQ~，後來我身邊的王大佬又教了我一遍。 進制轉換多數用的是短除法（別人是這麽叫的），就是除以進制數後，記錄余

Java 二進制，八進制，十進制，十六進制轉換

obi app pub main binary binarys val static 十進制轉十六進制 /** * Java 二進制，八進制，十進制，十六進制轉換 */ public class App { public static void main(

POJ 2798：二進制轉換十六進制（一直WA）

() 十六 fun pre span repr bin sum string.h 很郁悶，這道題一直WA，然而本地我測了好幾組數據都是通過的，上網找了網友陳宇龍加油加油加油的AC的代碼，http://blog.csdn.net/Since_natural_ran/artic