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设置说存在"Identifier expected"错误.如果我尝试将此行替换为GetAppVersion到Result(为什么？我不知道,但我在示例中看到它)它说"GetAppVersion的原型无效".

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

Answer 1

Result := 需要指定函数的结果/返回值(不要像VB那样将其赋值给函数名)

"无效原型"错误很可能是因为您在{code:...}常量中使用它,要求被调用函数始终具有单个字符串参数.
尝试使用从帮助文件中获取的内容:

function GetAppVersion(Param: String): String;