是否存在@運算符的類型安全版本？或者可以打開的編譯器警告？

Question

以下代碼在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, mtInformation, [mbOK], 0); // This might display garbage. 
end; 

Answer 1

使用Type-checked pointers（{$ T +}指令）

Answer 2

有一個在項目設置的選項 - >正是這個編譯器設置。