delphi自定义数据类型：Delphi基础教程图文版之数据类型

对于初学编程这一段其实可以暂时跳过，但是出来混早晚要还的。学了一断时间后，你会发现数据类型很重要,特别是在你分析Delphi源码时

长文预警……

Delphi 中可以定义很多种数据类型，今天条先聊其中比较容易的的简单类型，其中包括：有序数据类型，实数类型和字符串类型。字符串类型比较特殊，等后面单开一篇来进行讲解

有符号和无符号

在上面的表格中很容易就注意到了这两个词，我自己在初次接触Delphi的时候很疑惑，因为Java中没有这样的概念。貌似只有在C、C 和Delphi中尤其是Win32API中存在大量这样的说法。如果其他语言中也有的话只能抱歉了，我只能说我没接触过……

有符号数（signed）可以表示特定类型规定范围内的整数（包括负数），而无符号数只能表示非负数（0及正数）。

在数学中，任意基数的负数都在最前面加上"−"符号来表示。然而在计算机硬件中，数字都以无符号的二进制形式表示，因此需要一种编码负号的方法。当前有四种方法，用于扩展二进制数字系统，来表示有符号数：原码（sign-and-magnitude）、反码（ones' complement）、补码（two's complement）以及移码（offset binary，excess-N）

以上内容摘自维基百科对于有符号数的处理论述：https://zh.wikipedia.org/wiki/有符號數處理

上面说到了关于有符号数的表示方法（即：原码、反码、补码以及移码），我梳理了一下相关内容，以便更容易理解

（1）原码： 一个整数，按照绝对值大小转换成的二进制数，最高为为符号位，称为原码。 加粗为符号位

例如：X=-5

正：0 0000000 00000000 00000000 00000101

负：1 0000000 00000000 00000000 00000101

（2）反码： 将二进制除符号位数按位取反，所得的新二进制数称为原二进制数的反码。 正数的反码为原码，负数的反码是除原码符号位外按位取反，取反操作指：原为1，变0；原为0，变1。

例如：X=-5 原：10000000 00000000 00000000 00000101 反：11111111 11111111 11111111 11111010

即 11111111 11111111 11111111 11111010 为 10000000 00000000 00000000 00000101 的反码。

（3）补码： 反码加1称为补码。 正数的补码和原码相同。负数要得到一个数的补码，先得到反码，然后将反码加上1，所得数称为补码。

例如：X=-5 原：11111111 11111111 11111111 11111010 反：10000000 00000000 00000000 00000101 补：11111111 11111111 11111111 11111011

（4）移码： 实际上就是改变了补码的符号位，从0变1，从1变0。

例如：X=-5 原=1000000 00000000 00000000 00000101 反=1111111 11111111 11111111 11111010 补=‭1111111 11111111 11111111 11111011‬ 移=0111111 11111111 11111111 11111010

有序类型

有序类型是建立在概念“顺序”或“序列”基础上的数据类型。你不仅可比较两个有序值的大小，而且可以求取给定有序值的前驱及后继，或者计算它们的最大或最小值。

布尔类型

布尔值不同于布尔类型，平时很少用到。ByteBool、 WordBool 和LongBool这三种布尔类型的布尔值比较特殊，只在Windows API 函数中才用到它们。

在Delphi 3 中，为了与Visual Basic 和 OLE Automation兼容，修改了ByteBool、 WordBool 和LongBool的布尔值，将TRUE值设置为1，FALSE值仍为0；Boolean类型布尔值保持不变（TRUE为1，FALSE为0）。如果在Delphi 2代码中使用了布尔值显式类型转换 ，那么在以后的Delphi中可能会出错。

实数类型

实数类型(其实也就是我们平时说的小数点)代表不同格式的浮点数。Single类型占的字节数最小，为4个字节；其次是Double 浮点类型，占8个字节；Extended 浮点类型，占10个字节。

这些不同精度的浮点数据类型都与IEEE（ 电气和电子工程师协会）标准的浮点数表示法一致，并且 CPU数字协处理器直接支持这些类型，处理速度也最快

需要注意的是Real 类型在Delphi 2 和 Delphi 3 中的定义与 16 位版本一样，都占 6 个字节。不过Borland公司一直不提倡使用这种类型，而建议用Single、 Double、 Extended 类型代替

参考资料：https://www.tcoline.com/resource/Delphi/delphi_datatype.htm

类型转换

其实我认为的类型转换一直都是有两种形式一种是自动类型转换，另一种为强制类型转换

自动类型转换：在有序类型的范围内类型转换的一种形式，即字节数小的向字节数大的类型内进行转换，编译器可以自动完成类型转换

procedure TForm1.Button1Click(Sender: TObject); var Num:Double; begin Num:=1; end;

强制类型转：即上面自动转换反过来的玩儿法，字节数大的向字节数小的类型内进行转换，而这种转换编译器是不会帮我们完成，需要我们显示的进行处理

具体的实现方式也有两种，第一种为类型映射(书上是这么称呼的)，第二种是利用Delphi的一些内置函数完成

例如：假定要把一个字符类型的值赋给一个byte类型的变量：

var c: char; b: byte; begin c:= 'a'; b:= c; //编译器要提示错误 end.

在下面的代码中，强制类型转换把c转换成byte类型，事实上强制类型转换是告诉编译器你知道你正在做什么，并要把一种类型转换为另一种类型：

var c: char; b: byte; begin c:= 's'; b:= byte(c); //编译器不会报错 end.

如果以字符转字节的方式无法理解的话，那看下面的例子

procedure TForm1.Button1Click(Sender: TObject); var Num:Double; Num2:Integer; begin Num2:=Integer(Num2);//编译器不会报错 end;

使用Delphi内置的函数实现类型转换的方式比较简单，下面是常用函数的一张表

,