¿Por qué este código falla en D2010, pero no en D7?

Question

¿Por qué este código obtiene un error de acceso en el resultado: = línea de memoria intermedia en D2010, pero no D7?

Algo, supongo, relacionado con UniCode, pero el compilador no genera ninguna advertencia.

¿Alguna sugerencia sobre una solución elegante?

Editar: Ay: la llamada GetTempPath está destrozando la pila como lo demuestra el hecho de que la extensión está vacía después de la línea GetTempPath, pero no antes ... 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 espera el número de caracteres en el almacenamiento intermedio para su primer argumento, no el tamaño en bytes. Cambie SizeOf a Length y funcionará.

Answer 2

para que funcione como en D7, en lugar de "cadena" con "AnsiString" y "Char" con "AnsiChar". Además, llame a GetTempPathA y GetTempFileNameA en lugar de GetTempPath y GetTempFileName.

Pero el enfoque dado por Mason es probablemente mejor, ya que admitirá nombres de archivo Unicode.