关于整型Integer、Int32、Int64、IntPtr、UINT、UInt32、Cardinal、UInt64、UIntPtr、NativeUInt、Pointer、Handle

知识点1：UIntPtr = NativeUInt = Pointer = Handle 随程序的位数改变而改变。如下：

所以以后再用指针的时候要这样：UintPtr/NativeUInt(实例) = 栈中指针内存编号

以下是代码研究：

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm5 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  /// <summary>
  /// 定义一个类,测试隐式转换
  /// </summary>
  TPerson = class
    function makeLove(const i: Integer): string; overload;
    //function makeLove(const i: Int32): string; overload; // Integer = int32 所以这个重载会报错
    function makeLove(const i: IntPtr): string; overload;  // IntPtr <> int32 因为 它与程序的位数有关,所以允许重载.
    function makeLove(const i: Int64): string; overload; // uint32、uint 无符号整型,由于integer会溢出,隐式转换到了这个重载上.
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

(*===============以下有无符号整型============= *)

//Integer = Int32; 有符号32位整型; 两种表示法
function a1(const i: Integer): string;
begin
  Exit(i.ToString);
end;

function a2(const i: Int32): string;
begin
  Exit(i.ToString);
end;

//int64 只有一种表示法
function a3(const i: Int64): string;
begin
  Exit(i.ToString);
end;

// IntPtr = NativeInt 表示有符号整数，若程序是32位的则表示 integer , 若程序是64位的 则表示 int64
function a4(const i: IntPtr): string;
begin
  Exit(i.ToString);
end;

function a5(const i: NativeInt): string;
begin
  Exit(i.ToString);
end;

(*===============以下是无符号整型============= *)

//UINT = UInt32 = Cardinal; 无符号32位整型; 三种表示法
function b1(const i: UINT): string;
begin
  Exit(i.ToString);
end;

function b2(const i: UInt32): string;
begin
  Exit(i.ToString);
end;

function b3(const i: Cardinal): string;
begin
  Exit(i.ToString);
end;

function b4(const i: UInt64): string;
begin
  Exit(i.ToString);
end;

// UIntPtr = NativeUInt 表示无符号整数，若程序是32位的则表示 UInt32 , 若程序是64位的 则表示 UInt64
function b5(const i: UIntPtr): string;
begin
  Exit(i.ToString);
end;

function b6(const i: NativeUInt): string;
begin
  Exit(i.ToString);
end;

procedure TForm5.Button1Click(Sender: TObject);
var
  a: Integer;
  b: Cardinal;
  c: UInt64;
  pp: TPerson;
begin
  a := ;
  b := ;
  c := ;
  pp := TPerson.Create;
  try
    pp.makeLove(a);
    pp.makeLove(b); //由于 integer会溢出, 所以这里 隐式 把 b 转换成了 int64, 然后调用了 int64的重载
    pp.makeLove(c); //这里隐式转换了 但是 这样不安全会发生溢出的现象, delphi 没有那么完美了！！

    //如果想操作指针的话,那么用 UIntPtr 与 NativeUInt 是最合适的，Handle Pointer 都与 等同于 UIntPtr NativeUInt 随程序的位数 改变而改变
    //UIntPtr(pp) = pp 的 栈中指针
    //NativeUInt(pp) = pp 的 栈中指针

    //由于大多数人,都是开发32位程序,而为了最大程度兼容 integer这个 类型，所以很多方法 都是用 int64做入参 ,比如: function abc(const a: int64);
    //那么这个方法 就是可以接收 integer int64 与 32位程序的指针(指针会被隐式转换为int64，不溢出因为int64足以包括它了),我师傅 就是这么干的.
  finally
    pp.Free;
  end;
end;

{ TPerson }

function TPerson.makeLove(const i: Integer): string;
begin
  Exit(i.ToString);
end;

function TPerson.makeLove(const i: IntPtr): string;
begin
  Exit(i.ToString);
end;

function TPerson.makeLove(const i: Int64): string;
begin
 Exit(i.ToString);
end;

end.