在Delphi中，爲什麼不能直接比較threadvar類型的浮點數？

Question

我已經在Delphi 6,7和XE2中測試過了，都顯示這個錯誤。
我想在線程直接比較兩個浮點數，就像這樣：

threadvar 
    a,b : Double; 

procedure test; 
begin 
    if a > b then 
    ; 
end; 

但編譯時，DCC發生內部error.So我改成了這樣：

threadvar 
    a,b : Double; 

procedure test; 
begin 
    if a - b > 0 then 
    ; 
end; 

錯誤消失了，爲什麼？

Answer 1

這顯然是編譯器中的一個錯誤。我向Quality Central報告了這個錯誤，QC#101656。這個bug隻影響32位編譯器，並不會讓任何人感到安慰！

你可以解決它把你的變量記錄是這樣的：

threadvar 
    r: record 
    a,b: Double; 
    end; 

procedure test; 
begin 
    if r.a > r.b then 
    ; 
end;