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

以下代码不会在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}指令)