文档章节

回复 "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

没有更多内容

加载失败,请刷新页面

加载更多

下一页

c语言之内存分配笔记

先看一个数组: short array[5] = {1,2} // 这儿定义的一个int类型的数组,数组第1和第2个元素值是1和2.其余后面默认会给值为0; 或者 short array[] = {1,2};//这儿数组第1和第2个元素,数组...

DannyCoder
今天
2
0
Shell | linux安装包不用选择Y/N的方法

apt-get install -y packageOR echo "y" | sudo apt-get install package

云迹
今天
2
0
Hadoop的大数据生态圈

基于Hadoop的大数据的产品圈 大数据产品的一句话概括 Apache Hadoop: 是Apache开源组织的一个分布式计算开源框架,提供了一个分布式文件系统子项目(HDFS)和支持MapReduce分布式计算的软件架...

zimingforever
今天
5
0
八大包装类型的equals方法

先看其中一个源码 结论:八大包装类型的equals方法都是先判断类型是否相同,不相同则是false,相同则判断值是否相等 注意:包装类型不能直接用==来等值比较,否则编译报错,但是数值的基本类型...

xuklc
今天
2
0
NoSQL , Memcached介绍

什么是NoSQL 非关系型数据库就是NoSQL,关系型数据库代表MySQL 对于关系型数据库来说,是需要把数据存储到库、表、行、字段里,查询的时候根据条件一行一行地去匹配,当量非常大的时候就很耗...

TaoXu
昨天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部