Inno 设置脚本：标识符预期错误

Question

请帮我编写以下代码：

[Code]
var
    AppVersionNumber: Integer;
    DBVersionNumber: Integer;
function GetAppVersion:Integer;
    var
        AppVersion: AnsiString;
    begin
        ExtractTemporaryFile('info.dat');
        LoadStringFromFile(ExpandConstant('{tmp}\info.dat'), AppVersion);
        AppVersionNumber := StrToInt(Copy(AppVersion, 1, 6));
        DBVersionNumber := StrToInt(Copy(AppVersion, 7, 12));
        GetAppVersion := AppVersionNumber; <== here is error
    end;

我不明白这里有什么问题。 Inno 设置说存在“预期标识符”错误。如果我尝试将这一行的 GetAppVersion 替换为 Result（为什么？我不知道，但我在示例中看到过），它会显示“GetAppVersion 的原型无效”。

这段代码有什么问题？请帮忙

Answer 1

需要Result :=来指定函数的结果/返回值（你不要像VB那样将它分配给函数名）

“Invalid Prototype”错误很可能是因为您在 {code:...} 常量中使用它，该常量要求被调用的函数始终具有单个字符串参数。
尝试使用取自the help file：

function GetAppVersion(Param: String): String;