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

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

本人再学习的过程中,遇到很多难题,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;

 

 

分享到: