请帮我处理以下代码:
[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的原型无效”。
这段代码有什么问题?请帮忙
答案 0 :(得分:10)
Result :=
(不要像VB那样将其赋值给函数名)
“无效原型”错误很可能是因为您在{code:...}
常量中使用它,要求被调用函数始终具有单个字符串参数。
尝试使用the help file:
function GetAppVersion(Param: String): String;