delphi – 是否有@操作符的类型安全版本？或者可以打开的编译器

发布时间：2020-12-15 09:35:50 所属栏目：大数据来源：网络整理

导读：以下代码不会在D6中生成编译器警告.当我告诉ps指向一个字符串时,我可以告诉我将ps指向一个整数吗？ procedure Test;var i: integer; s,m: string; ps: ^string;begin s := 'Test message'; ps := @s; m := ps^; MessageDlg(m,mtInformation,[mbOK],0); // Th

以下代码不会在D6中生成编译器警告.当我告诉ps指向一个字符串时,我可以告诉我将ps指向一个整数吗？

procedure Test;
var
  i: integer;
  s,m: string;
  ps: ^string;
begin
  s := 'Test message';
  ps := @s;
  m := ps^;
  MessageDlg(m,mtInformation,[mbOK],0);  // This displays 'Test message'.
  ps := @i;  // I would like a warning here.
  m := ps^;
  MessageDlg(m,0);  // This might display garbage.
end;

解决方法

使用 Type-checked pointers({$T}指令)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!