xnumber.txt

来自「我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面」· 文本 代码 · 共 59 行

unit xNumber;

//16进制，2进制，整数，字符串间的转换。


//整数转换为16进制字符串
function IntToHexStr(Value:Integer): string;

//16进制字符串转换为整数
function HexStrToInt(HexStr:string): Integer;

//16进制字符串转换为2进制字符串
function HexToBinStr(HexStr : string): string;

//16位2进制字符串转换为整数
function BinStrToInt(BinStr : string) : integer;

//整数转换为2进制字符串
function IntToBinStr(Value: Integer): String;

//16进制字符(0..9 & A..F or a..f)转换为整数
function HexCharToInt(HexToken : char):Integer;

//16进制字符转换为2进制字符串
function HexCharToBinStr(HexToken : char): string;

//指定位是否为1
function IsBitSet(const x:Integer; const bit:byte): boolean;

//所有位清0
function ClearAllBits (const x: Integer):Integer;

//所有位置1
function SetAllBits (const x: Integer):Integer;

//所有位翻转
function ToggleAllBits (const x: Integer):Integer;

//指定位清0
function ClearBit(const x: Integer; const bit: Byte):Integer;

//指定位置1
function SetBit(const x: Integer; const bit: Byte):Integer;

//指定位反转
function ToggleBit(const x: Integer; const bit: Byte):Integer;

//格式化整数
//var
//    i:Integer;
//    s:string;
//begin
//	i := 1200000;
//	s := FormatFloat('#,0', i);
// 	Memo1.lines.add(s);
//end;