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/%E6%9C%89%E7%AC%A6%E8%99%9F%E6%95%B8%E8%99%95%E7%90%86

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

(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内置的函数实现类型转换的方式比较简单，下面是常用函数的一张表

---