论坛风格切换切换到宽版
  • 1732阅读
  • 2回复

老虎版主,又向您请教一个问题 [复制链接]

上一主题 下一主题
离线546242502
 

发帖
332
金钱
-3060
威望
-306
只看楼主 倒序阅读 0 发表于: 2015-08-13
用户被禁言,该主题自动屏蔽!
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 1 发表于: 2015-08-13
低级错误啊:每个函数都是要用 begin 和 end 围起来的。

为了不至于与网页的格式符相冲突,下面的代码中有意将变量 i 换成了 n。为什么?你看看你上面的代码显示出来是什么样子就知道了。

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
Compression=lzma2
SolidCompression=yes

[Files]
Source:"123.TXT"; DestDir: "{app}"

[code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  s: TArrayOfString;
  n, maxV, V1: LongInt;
  s1: string;
begin
if CurStep = ssDone then
begin
LoadStringsFromFile(ExpandConstant('{app}\123.txt'), s);
maxV:= 0;
for n:= 0 to GetArrayLength(s)-1 do
  if Pos('ID=', s[n]) = 1 then
    begin
      s1:= s[n];
      delete(s1, 1, 3);
      V1:= StrToIntDef(Trim(s1),0);
      if V1 > maxV then
        maxV := V1;
    end;
MsgBox('ID 最大值是 ' + IntToStr(maxV), mbInformation, MB_OK);
end;
end;
离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 2 发表于: 2015-08-13
用户被禁言,该主题自动屏蔽!