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:...}常量中使用它，要求被调用函数始终具有单个字符串参数。
尝试使用the help file：

function GetAppVersion(Param: String): String;

Inno安装脚本：标识符预期错误

1 个答案: