¿Por qué obtengo "E2026 expresión constante esperada"?

Question

tengo que mover un archivo en la carpeta system32, que utiliza este código:

//-----------FUNCTION---------------- 
function GetWindowsSystemDir(): String; 
var 
    vlBuff: Array[0..MAX_PATH-1] of Char; 
begin 
    getSystemDirectory(vlBuff, MAX_PATH); 
    Result := vlBuff; 
end; 
//----------------------------------- 

const 
    SMyFile = GetWindowsSystemDir+'\intructions.txt'; //error here, line 87 
var 
    S: TStringList; 
begin 
    S := TStringList.Create; 
    try 
    S.Add('intructions'); 
    S.SaveToFile(SMyFile); 
    finally 
    S.Free; 
    end; 
end; 

me da error al compilar:

[DCC Error] Unit1.pas(87): E2026 Constant expression expected 

Gracias.

Answer 1

Como indica el mensaje de error del compilador, espera una expresión constante en la que está inicializando la const. Pero está llamando a una función allí, y el compilador no la evaluará en tiempo de compilación.

declara una variable lugar, y asignarle el interior del bloque begin-end regular de su código:

var 
    SMyFile: string; 
    S: TStringList; 
begin 
    S := TStringList.Create; 
    try 
    S.Add('intructions'); 
    SMyFile := GetWindowsSystemDir+'\intructions.txt'; 
    S.SaveToFile(SMyFile); 
    finally 
    S.Free; 
    end; 
end;