为什么编译器跳过指定变量

Question

我有以下步骤：

procedure GetDegree(const num : DWORD ; var degree : DWORD ; min ,sec : Extended); 
begin 
    degree := num div (500*60*60); 
    min := num div (500*60) - degree *60; 
    sec := num/500 - min *60 - degree *60*60; 
end; 

后高度可变被分配调试器跳到程序结束。这是为什么？

Answer 1

这是一个优化。变量min和sec按值传递。这意味着调用者看不到它们的修改，并且对于此过程是私有的。因此，编译器可以解决分配给它们毫无意义的问题。分配给变量的值永远不会被读取。所以编译器选择节省时间并跳过作业。 我希望你的意思是声明是这样的过程：

procedure GetDegree(const num: DWORD; var degree: DWORD; var min, sec: Extended); 

正如我在以前的提问时说，有没有真正使用Extended多点。使用其中一种标准浮点类型Single或Double可能会更好。或者甚至使用映射到Double的通用Real。

此外，您已声明min是浮点类型，但计算计算一个整数。我对这个问题的回答很精确。

---

我会建议您创建一个记录来保存这些值。传递三个单独的变量会使您的函数接口非常混乱并破坏封装。作为一个整体考虑时，这三个值只有意义。

type 
    TGlobalCoordinate = record 
    Degrees: Integer; 
    Minutes: Integer; 
    Seconds: Real; 
    end; 

function LongLatToGlobalCoordinate(const LongLat: DWORD): TGlobalCoordinate; 
begin 
    Result.Degrees := LongLat div (500*60*60); 
    Result.Minutes := LongLat div (500*60) - Result.Degrees*60; 
    Result.Seconds := LongLat/500 - Result.Minutes*60 - Result.Degrees*60*60; 
end; 

function GlobalCoordinateToLongLat(const Coord: TGlobalCoordinate): DWORD; 
begin 
    Result := Round(500*(Coord.Seconds + Coord.Minutes*60 + Coord.Degrees*60*60)); 
end;