学习中的一些牢骚。字符串栈/堆的址标准写法。

来自我写的：http://blog.qdac.cc/?p=4440

-----------------------------------------------

我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。下面是我的写法，如果有更简单的方法，请留言告知。

本人再学习的过程中，遇到很多难题，delphi很多地方自身的设计就很乱。
比如对参数修饰符的理解，网上100篇文章 90篇都有问题 错误率非常高。delphi 的数据类型有很多
同一个参数修饰符 修饰 不同数据类型 的意义都是有差异的。你或许认为你知道 传值与传址；
传址 又可分2种情况，你可知道。

---------------------------------------------------------------

再比如 把指针 转换成 16进制。网上有很多人的写法 都不是标准的。可以讨论下，我弄了一个标准的写法，兼容32位与64位。

从IntToHex()说起，这个方法 官方设计时 是如何想的 我不懂；反正乱，这也是导致很多人 把指针转换成16 多种写法的主要原因。

看下图 官方提供了 3个函数：

你要知道 32位程序，指针是无符号32位的 即Cardinal 类型；64位是 UInt64 类型。

官方上面三个函数中提供了 Uint64 入参，却没有提供Cardinal入参的重载。

再看这三个函数的实现：

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 而不溢出。

罢了 罢了 不管官方的设计了，我们只能再官方的基础上 做我们想做的事：

拿到栈中指针的地址与堆中数据的地址的标准写法是（谁不同意欢迎讨论）：

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;