爲什麼此代碼在D2010中失敗，但不是D7？

Question

爲什麼此代碼在D2010中的結果：=緩衝區行中發生訪問錯誤，但不是D7中的？

有些事情，我猜想，涉及UniCode，但編譯器不會產生任何警告。

任何建議在優雅的解決方法？

編輯：Ouch：GetTempPath調用正在垃圾堆棧中，這是由於GetTempPath行後面的擴展名爲空，但之前沒有... Yikes。

function GetTempPathAndFileName(const Extension: string): string; 
    var 
     Buffer: array[0..MAX_PATH] of Char; 
    begin 
     repeat 
     GetTempPath(SizeOf(Buffer) - 1, Buffer); 
     GetTempFileName(Buffer, '~', 0, Buffer); 
     Result := Buffer; // <--- crashes on this line, 
     Result := ChangeFileExt(Result, Extension); 
     until not FileExists(Result); 
    end; { GetTempPathAndFileName } 

Answer 1

GetTempPath期望緩衝區中第一個參數的字符數，而不是字節大小。將SizeOf更改爲Length，它將起作用。

Answer 2

要使它在D7工作，將「串」與「AnsiString類型」和「字符」和「ANSIChar類型」。此外，調用GetTempPathA和GetTempFileNameA而不是GetTempPath和GetTempFileName。

但是，梅森給出的方法可能會更好，因爲它將支持Unicode文件名。