首页 美食 育儿 手工 生活 美妆 美容 设计 电脑 综合
首页 相关文章 IntToBin(2-16进制转换函数)

IntToBin(2-16进制转换函数)

(****Value是要转换的十进制数，Count是输出的二进制位数，默认32位****)
　　function IntToBin(Value: Integer; Count: Integer=32): string;
　　var
　　 iTemp: Integer;
　　begin
　　 Result := '';
　　 while Count0 do
　　 begin
　　 iTemp := Value shr (Count-1) and 1;
　　 case iTemp of
　　 1: Result := Result+'1';
　　 0: Result := Result+'0';
　　 end;
　　 Dec(Count);
　　 end;
　　end;
　　自己写的，不知有否漏洞，测试了一下
　　ShowMessage(IntToBin(-1,8)); //输出11111111
　　ShowMessage(IntToBin(333333...[ 查看全文 ]

2016-02-19 标签:
编程语言 网络编程

IntToBin(2-16进制转换函数)的相关文章

  • 无限进制转换
    标签：编程语言 网络编程
      无限进制转换 (*// 标题 : 无限进制转换 说明 : 使用于数学领域进制之间相互转换 设计 :Zswang 日期 :2002-01-24 支持 :wjhu111@21cn.com //*) ///////Begin Source const   cScaleChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; function IntPower(Base, Exponent: Integer): Integer; {  返回 Base 的 E...[ 查看全文 ]
    半世花落a
    01
  • c#实现16进制和字符串之间转换的代码
    标签：编程语言 网络编程
    十六进制字符串与数值类型之间转换（C# 编程指南） 以下示例演示如何执行下列任务： 获取字符串中每个字符的十六进制值。 获取与十六进制字符串中的每个值对应的字符。 将十六进制 string 转换为整型。 将十六进制 string 转换为浮点型。 将字节数组转换为十六进制 string。 示例 此示例输出 string 中的每个字符的十六进制值。首先，它将 string 分析为字符数组，然后对每个字符调用 ToInt32(Char) ...[ 查看全文 ]
    踏雪小呈
    461
  • 浅议Oracle中的进制转换
    标签：SQLServer
      作者： Eygle 出处： BLOG 进制转换是开发中经常需要用到的，本文简单介绍几种常用的进制转化方法. 一 16进制转换为10进制 可以通过to_number函数实现 SQL select to_number(’19f’,’xxx’) from dual; TO_NUMBER(’19F’,’XXX’) ---------------------- 415 SQL select to_number(’f’,’xx’) from dual; TO_NUMBER(’F’,’XX’) ------------------- 15  ...[ 查看全文 ]
    homedsasad
    31
  • C# 16进制与字符串、字节数组之间的转换
    标签：编程语言 网络编程
    代码如下： /// summary /// 字符串转16进制字节数组 /// /summary /// param name="hexString"/param /// returns/returns private static byte[] strToToHexByte(string hexString) { hexString = hexString.Replace(" ", ""); if ((hexString.Length % 2) != 0) hexString += " "; byte[] returnBytes = new byte[hexString.Length / 2]; for (int i = 0; i returnBytes.Length; i++) retur...[ 查看全文 ]
    叫我胡gg
    91
  • UBB 转换函数演示
    UBB代码对于经常上论坛的朋友来说是最熟悉不过了。这里我不多说了，关于怎么实现UBB转换，不了解的朋友请看这里 正则表达式在ＵＢＢ论坛中的应用 。     经典论坛的UBB转换我觉得是处理的非常好的，研究了一下它的转换结果[因为没有源码:)]，做了下面的演示。转换结果基本上觉得象了。     主要是针对[code][html]这两个标签的处理，其他的UBB标签还是一般的处理方法...[ 查看全文 ]
    heaven天使之缘
    31
  • Mysql 数字类型转换函数
    标签：编程语言 网络编程
    1、将Int 转为varchar经常用 concat函数，比如concat(8,'0') 得到字符串 '80' 2、将varchar 转为Int 用 cast(a as signed) a为varchar类型的字符串 总结：类型转换和SQL Server一样,就是类型参数有点点不同 : CAST(xxx AS 类型) , CONVERT(xxx,类型) 可用的类型 二进制,同带binary前缀的效果 : BINARY 字符型,可带参数 : CHAR() 日期 : DATE 时间: TIME 日期时间型 : DATETIME 浮点数 : DECIMAL ...[ 查看全文 ]
    新浪腾信
    11
  • UBB 转换函数演示 (经典论坛)
    标签：Web开发
    UBB代码对于经常上论坛的朋友来说是最熟悉不过了。这里我不多说了，关于怎么实现UBB转换，不了解的朋友请看这里 正则表达式在ＵＢＢ论坛中的应用 。 经典论坛的UBB转换我觉得是处理的非常好的，研究了一下它的转换结果[因为没有源码:)]，做了下面的演示。转换结果基本上觉得象了。 主要是针对[code]{html}这两个标签的处理，其他的UBB标签还是一般的处理方法。 下面是分别用javascript和vbscript实现的...[ 查看全文 ]
    地板小金
    21
  • 货币大写转换函数的更新
    标签：ASP
    <% dim a '要转换成大写的金额 dim atoc '转换之后的值 Dim String1 '如下定义 Dim String2 '如下定义 Dim String3 '从原A值中取出的值 Dim I '循环变量 Dim J 'A的值乘以100的字符串长度 Dim Ch1 '数字的汉语读法 Dim Ch2 '数字位的汉字读法 Dim nZero '用来计算连续的零值是几个 String1 = "零壹贰叁肆伍陆柒捌玖" String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分" nZero = 0 If InStr(1, CStr(a * 100),...[ 查看全文 ]
    l6668955
    31
  • 将半角转换为中文的函数
    标签：ASP
      function new_str(str) if instr(str,chr(34))<0 and str<"" then   str_split=split(str,chr(34))   i=1   str_s=""   for j=0 to ubound(str_split)-1    if i mod 2 then     str_s=str_s&str_split(j)&"“"&str_split(j+1)    else   &nb...[ 查看全文 ]
    a694073544
    21
  • JAVA 十六进制与字符串的转换
    标签：编程语言 网络编程
    toHexString public static String toHexString(int i)以十六进制的无符号整数形式返回一个整数参数的字符串表示形式。 如果参数为负，那么无符号整数值为参数加上 232；否则等于该参数。将该值转换为十六进制（基数 16）的无前导 0 的 ASCII 数字字符串。如果无符号数的大小值为零，则用一个零字符 '0' ('\u0030') 表示它；否则，无符号数大小的表示形式中的第一个字符将不是零字符。用以下字符作为十六进...[ 查看全文 ]
    xuquan1209
    951
  • widechar单双字节转换函数Asc
    标签：电脑入门
    一、widechar 函数用途：将单字节字符转换为双字节字符。 语法： WIDECHAR(text) 参数介绍：Text是需要转换为双字节字符的文本或包含文本的单元格引用。 注意：因为汉字本身是双字节字符，所以使用此函数转换汉字时得到的是汉字的原形。 例子如下： 公式=WIDECHAR("dzwebs") 返回dzwebs =WIDECHAR("大众计算机")返回大众计算机。 二、Asc 用途：将全角字符转换为半角字符。 ...[ 查看全文 ]
    倾听雨水声响
    11
  • 网址和邮件地址的转换函数
    标签：ASP
    <% function URLconvert(str)  convertstr=str urlLocation=instr(convertstr,"http://") if (urlLocation=0) and (mailLocation=0) then  URLconvert=convertstr exit function end if if urlLocation<0 then rightstr=str Do while urlLocation<urlLocationend urlLocation=instr(rightstr,"http://") urlLocatione...[ 查看全文 ]
    密码丢了Cao
    51
  • java实现ip地址与十进制数相互转换
    标签：编程语言 网络编程
    先看实例 代码如下 代码如下： classip { privatestaticlongiptolong(stringstrip) //将127.0.0.1形式的ip地址转换成10进制整数，这里没有进行任何错误处理 { intj=0; inti=0; long[]ip=newlong[4]; intposition1=strip.indexof("."); intposition2=strip.indexof(".",position1+1); intposition3=strip.indexof(".",position2+1); ip[0]=long.parselong(strip.substring(0,position1)); ip[1...[ 查看全文 ]
    容俺老夫补一刀
    491
  • 用js实现的十进制的颜色值转换成十六进制的代码
    标签：Web开发
    [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] [ 查看全文 ]
    榆树老李82
    441
  • Email+URL的判断和自动转换函数
    标签：PHP
      <?php function validateEmail($email)   {     return eregi("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$", $email);   }   function validateURL($url)   {     return eregi("^((ht|f)tp://)((([a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3}))|(([0-9]{1...[ 查看全文 ]
    摩的摩的0
    11
  • 整理C# 二进制十进制十六进制 互转
    标签：编程语言 网络编程
    //十进制转二进制 Console.WriteLine(Convert.ToString(69, 2)); //十进制转八进制 Console.WriteLine(Convert.ToString(69, 8)); //十进制转十六进制 Console.WriteLine(Convert.ToString(69, 16)); //二进制转十进制 Console.WriteLine(Convert.ToInt32(”100111101″, 2)); //八进制转十进制 Console.WriteLine(Convert.ToInt32(”76″, 8)); //十六进制转十进制 Console.WriteLine(Convert.To...[ 查看全文 ]
    趁年轻great
    71
  • 简体中文转换为繁体中文的PHP函数
    标签：PHP
      感谢网友Keyes提供移植用的Delphi源代码。其调用方式为$txt=gbtobig5($txt)。     （注：源代码中的include "data_gb.php";这个文件在就是一个数组，在http://caocao.oso.com.cn/data_gb.zip，请编辑下载到oso上，做一个链接，因为这个文件我过几天就要删除了。） <? /***********************************************************************   &...[ 查看全文 ]
    黑八m
    421
  • 繁体中文转换为简体中文的PHP函数
    标签：PHP
      前几天我在oso论坛上问有没有这个源程序，没人回复。终于下定决心移植一个这样的函数，感谢网友Keyes提供移植用的Delphi源代码。其调用方式为$txt=big5togb($txt)。     （注：源代码中的include "data_big5.php";这个文件在就是一个数组，在http://caocao.oso.com.cn/data_big5.zip，请编辑下载到oso上，做一个链接，因为这个文件我过几天就要删除了。） <? /*...[ 查看全文 ]
    我是一只黄豆
    841
  • 《刺客信条2》视频流程攻略—16
    《刺客信条2》视频流程攻略—16   《刺客信条2》中文攻略解说 《刺客信条2》很溅的一个玩法 看见巡逻的士兵往地上扔一把钱士兵就站在那了周围的人就过来捡 这时悄悄的给每个士兵打一针毒箭 这时再扔一把钱     然后站在边上看 《刺客信条2》官方网站： http://assassinscreed.uk.ubi.com/assassins-creed-2/   网《刺客信条2》专区： 《刺客信条2》Ezio袖剑周...[ 查看全文 ]
    名鞋柜158
    121
  • 《刺客信条2》视频流程攻略16
    《刺客信条2》视频流程攻略16 （出处：） 《刺客信条2》中文攻略解说 《刺客信条2》很溅的一个玩法 看见巡逻的士兵往地上扔一把钱士兵就站在那了周围的人就过来捡 这时悄悄的给每个士兵打一针毒箭 这时再扔一把钱     然后站在边上看 《刺客信条2》官方网站： http://assassinscreed.uk.ubi.com/assassins-creed-2/   网《刺客信条2》专区： 《刺客信条2》Ezio袖...[ 查看全文 ]
    vip小浪漫
    21
手机页面
收藏网站 回到头部