我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。下面是我的写法，如果有更简单的方法，请留言告知。
本人再学习的过程中，遇到很多难题，delphi很多地方自身的设计就很乱。
比如对参数修饰符的理解，网上100篇文章 90篇都有问题 错误率非常高。delphi 的数据类型有很多
同一个参数修饰符 修饰 不同数据类型 的意义都是有差异的。你或许认为你知道 传值与传址；
传址 又可分2种情况，你可知道。
再比如 把指针 转换成 16进制。网上有很多人的写法 都不是标准的。可以讨论下，我弄了一个标准的写法，兼容32位与64位。
从IntToHex()说起，这个方法 官方设计时 是如何想的 我不懂；反正乱，这也是导致很多人 把指针转换成16 多种写法的主要原因。
看下图 官方提供了 3个函数：
你要知道 32位程序，指针是无符号32位的 即Cardinal 类型；64位是 UInt64 类型。
官方上面三个函数中提供了 Uint64 入参，却没有提供Cardinal入参的重载。
再看这三个函数的实现：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
function IntToHex(Value: Integer; Digits: Integer): string;
begin
Result := _IntToHex(Cardinal(Value), Digits);
end;
function IntToHex(Value: Int64; Digits: Integer): string;
begin
Result := _IntToHex(Value, digits);
end;
function IntToHex(Value: UInt64; Digits: Integer): string;
begin
Result := _IntToHex(Value, digits);
end;
|
你会发现第一个函数，Integer的这个 内部又转成了 Cardinal ，然后调用了_IntToHex ，而这个函数的入参是Uint64，所以又再次把Cardinal 转成了UInt64；折腾不折腾，多写一个函数会死啊；上面三个函数 都调用了 _IntToHex，我们接下来看这个函数；
function _IntToHex(Value: UInt64; Digits: Integer): string;
他的入参是 UInt64，所以说 上面三个IntToHex 最终都变成了UInt64；为什么最终 都用了 UInt64，我们要看这个函数的名字: IntToHex 意思是把整型转成16进制，而无符号64位 所能表达的范围最广，能兼容一切整型；即Int8、UInt8、Int32、UInt32(Cardinal)、Int64都能转换成 UInt64 而不溢出。
罢了 罢了 不管官方的设计了，我们只能再官方的基础上 做我们想做的事：
拿到栈中指针的地址与堆中数据的地址的标准写法是（谁不同意欢迎讨论）：
|
1
2
3
4
5
6
7
8
9
10
|
procedure TForm4.Button1Click(Sender: TObject);
var
s: string;
begin
s := ‘QDAC‘;
//标准写法
Memo1.Lines.Add(‘栈中指针地址：‘ + IntToHex(UInt64(Pointer(@s)), SizeOf(s)*2));
Memo1.Lines.Add(‘堆中数据地址：‘ + IntToHex(UInt64(Pointer(s)), SizeOf(s)*2));
end;
|