文档章节

回复 "Timer008" 的一个类型转换的问题 - 不是很典型, 对其他人参考价值不大

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 240
阅读 1
收藏 0
问题来源: http://www.cnblogs.com/del/archive/2008/07/10/1239621.html#1250359

代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{初始化测试数据}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := '004500FF';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b: Integer;
begin
  {把 Edit1 中的十六进制字符串转换成整数}
  b := StrToIntDef('$' + Edit1.Text, 0);
  {通过汇编的方式把 b 赋给 a; 这相当于 a := b;}
  asm
    mov eax, b
    mov a, eax
  end;
  {看看 a 的值}
  ShowMessage(IntToHex(a, 8)); {004500FF}
end;

end.


 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 206
  ClientWidth = 339
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Edit1: TEdit
    Left = 104
    Top = 56
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'Edit1'
  end
  object Button1: TButton
    Left = 128
    Top = 112
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/07/10/1239796.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
如何撰写一篇受人欢迎的博客

   自从成为CSDN知识库的特邀编辑以来,每天都需要审核几十篇博客,其中不乏一些让人眼前一亮的优秀文章,当然也有一些价值不是很大的一般博文,再加上自己自从开始写博客至今也有两年...

u013088062
2016/07/13
0
0
一谈薪资就脸红? 发 email 也可进行薪资谈判

专栏 | 九章算法 网址 | http://www.jiuzhang.com 许多人表示他们从来没有就薪资进行过谈判,因为他们觉得在讨论有关钱的问题时会很尴尬。 在这种情况下,你或许可以考虑选择电子邮件(E-mai...

九章算法
06/24
0
0
VC++常用数据类型及其操作详解

一.VC常用数据类型列表 二.常用数据类型转化 2.1数学类型变量与字符串相互转换 2.2 CString及string,char 与其他数据类型的转换和操作 ●CString,string,char的综合比较 ●数学类型与CString...

晨曦之光
2012/03/09
0
0
VC++常用数据类型及其操作详解(非常经典,共同分享)

友情提示: 为了方便你更好的学习和阅读,也更好的体现尊重原创作者的劳动成果,请您直接查看转载原本链接: http://snailflying.blog.hexun.com/8219350d.html ==========================...

长平狐
2013/01/06
1K
0
我在写了一个MVC,希望大家给点意见@

过年前wo在写一个项目,由于想保持系统的简单,不想引入太多的包,所以没有用MVC,,没有用ORM...没有使用任何应该用的框架;可后来发现...好吧一段痛苦的经历,你懂的,往事不要再提@ 过年的时候,在...

方小葱
2011/03/11
1K
56

没有更多内容

加载失败,请刷新页面

加载更多

解析高可用分布式键值存储 etcd 的原理

这篇文章将会介绍 etcd 的实现原理,其中包括 Raft 协议、存储两大模块,在最后我们也会简单介绍 etcd 一些具体应用场景。 etcd 的官方将它定位成一个可信赖的分布式键值存储服务,它能够为整...

小刀爱编程
21分钟前
1
0
在ubuntun虚拟机里安装goLang语言编程环境

Go语言是谷歌2009发布的第二款开源编程语言。 Go语言专门针对多处理器系统应用程序的编程进行了优化,使用Go编译的程序可以媲美C或C++代码的速度,而且更加安全、支持并行进程。 北京时间201...

JerryWang_SAP
22分钟前
5
0
c++builder导出函数export function DLL

__stdcall __export 即可,如: ulong __stdcall __export od_disasm(char *src,ulong srcsize,ulong srcip, t_disasm *disasm,int disasmmode){ return Disasm(src,srcsiz......

simpower
24分钟前
2
0
KDC服务安装及配置

阿伦哥-
26分钟前
1
0
mybatis-plus公共字段操作以及springboot2整合mybatis-plus

1、公共实体 对于User类中有而user表中没有的属性需要加第二个注解@TableField(exist = false),表示排除User类中的属性 所有新增公共字段加注解 并指定 @TableField(value = "corp_code",fi...

glen_xu
31分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部