当前位置: 源码素材网 » Delphi源码 » 算法实例 » 详情页

再分享一个Delphi 十进制转换十六进制的代码

Delphi 7.0 编程如何将十进制转换为十六进制呢?给大家再分享一个Delphi 十进制转换十六进制的代码实例,很轻松在两者进制间转换,运行界面效果如图所示。以下是相关的转换代码:
  procedure TForm1.Button1Click(Sender: TObject);
  begin
   if Edit1.Text = '' then
   begin
   Exit;
   end;
   Edit2.Text := OctToHex(StrToInt(Edit1.text));
  end;
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
   if not (key in ['0'..'9',#8]) then
   begin
   Key :=#0;
   end;
  end;

  • 相关标签:进制转换
  • 调试环境:Delphi7+
  • 文件大小:5.80K
  • 资源评级:
  • 更新时间:2018-12-06
  • 相关链接:暂无演示

源码测试截图:

再分享一个Delphi 十进制转换十六进制的代码运行截图

相似源码:进制转换 Delphi源码下载:再分享一个Delphi 十进制转换十六进制的代码 测试截图

下载地址:

暂无相关的Delphi源码!

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“再分享一个Delphi 十进制转换十六进制的代码”源代码侵犯了您的权益,请尽快告诉我们。