文档章节

回复 "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++常用数据类型及其操作详解(非常经典,共同分享)

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

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

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

方小葱
2011/03/11
1K
56
谨慎应对法律风险开源软件并非免费午餐

开源软件是一种日益流行的软件开发和发布模式。面 对当前经济形势下的财政紧缩的局面,开源软件模式也许会进一步流行。开源软件使用公开提供的免费的源代码。在目前需要的时候,寻求使用开源...

红薯
2009/12/26
1K
1

没有更多内容

加载失败,请刷新页面

加载更多

Spring源码学习笔记-1-Resource

打算补下基础,学习下Spring源码,参考书籍是《Spring源码深度解析》,使用版本是Spring 3.2.x,本来想试图用脑图记录的,发现代码部分不好贴,还是作罢,这里只大略记录下想法,不写太细了 ...

zypy333
今天
10
0
RestClientUtil和ConfigRestClientUtil区别说明

RestClientUtil directly executes the DSL defined in the code. ConfigRestClientUtil gets the DSL defined in the configuration file by the DSL name and executes it. RestClientUtil......

bboss
今天
16
0

中国龙-扬科
昨天
2
0
Linux系统设置全局的默认网络代理

更改全局配置文件/etc/profile all_proxy="all_proxy=socks://rahowviahva.ml:80/"ftp_proxy="ftp_proxy=http://rahowviahva.ml:80/"http_proxy="http_proxy=http://rahowviahva.ml:80/"......

临江仙卜算子
昨天
10
0
java框架学习日志-6(bean作用域和自动装配)

本章补充bean的作用域和自动装配 bean作用域 之前提到可以用scope来设置单例模式 <bean id="type" class="cn.dota2.tpye.Type" scope="singleton"></bean> 除此之外还有几种用法 singleton:......

白话
昨天
10
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部