巧妙用Delphi做数制转换(二进制/十进制/十六进制)

关于我们 | 会员登陆 | 收藏本站 | 留言薄

热门搜索关键字： 单片机教程 | 三极管 | 微电子 | C语言 | 汇编语言 | SCADA | 元器件 | IEEE |

cnieee.com baidu


栏目导航

栏目更新推荐

·	巧妙用Delphi做数制转换(二进制/十…
·	一些值得我们学习的单片机编程经验
·	C51与汇编混合编程
·	经典的防抖动键C51源程序
·	51单片机实用子程序库
·	8051系列单片机BASIC语言开发
·	单片机系统设计的要点
·	用单片机控制步进电机


点击TOP(10)
此栏目下没有热点文章

图片文章

用单片机控制步进电…	Project0502-单片机…
也谈LED驱动(转载)	基于单片机AT89C51的…

您现在的位置：中国IEEE中国电气电子工程师网 >> 单片机知识 >> 学习心得 >> 正文

巧妙用Delphi做数制转换(二进制/十进制/十六进制)

文章来源：中国IEEE整理点击数：更新时间：2008-6-30 【字体：小大】

（欢迎光临中国IEEE，希望本文能对您有所帮助http://www.cnieee.com)
载入中，请稍候……

相关文章：

没有相关文章

上一个文章：一些值得我们学习的单片机编程经验

下一个文章：没有了

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

关于〖巧妙用Delphi做数制转换(二进制/十进制/十六进制)〗的最新评论：

//完全用API完成:..uses Windows;
function IntToStr(I: integer): string;
begin
  Str(I, Result);
end;

function StrToInt(S: string): integer;
begin
Val(S, Result, Result);
end;

function HexToInt(Const HexValue: String) : Integer;
begin
  Val('$'+HexValue, Result, Result);
end;

function IntToHex(Const Value: Integer): string;
const
  HexChars: array[0..15] of Char = '0123456789ABCDEF';
var
  iTemp: Integer;
  i: Integer;
begin
  Result := '';
  i := 0;
  while i<4 do
  begin
    case i of
      0: iTemp := Value shr 24 and $FF;
      1: iTemp := Value shr 16 and $FF;
      2: iTemp := Value shr 8 and $FF;
      3: iTemp := Value and $FF;
    end;
    Result := Result + HexChars[iTemp div 16];
    Result := Result + HexChars[iTemp mod 16];
    Inc(i);
  end;
end;

function LowerCase(const S: string): String;
begin
  Result:=CharLower(Pchar(S));
end;

function UpperCase(const S: string): String;
begin
  Result:=CharUpper(Pchar(S));
end;

本站资源部分来自互联网,如侵权,将予以删除；欢迎同类网站做友情链接，

单片机交流群：14084521（满）59905828，2786387