Вопрос Как сделать ShouldSkipPage переменной?

zettend

Старожил
Здравствуйте.
Требуется функцию:
Код:
Function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if (PageID = wpSelectTasks) or (PageID = wpSelectComponents) or (PageID = wpSelectProgramGroup) then Result:= True;
end;
Сделать как-то так:

Код:
Procedure PagesSkip_1(PageID: Integer);
var
PagesSkip: AnsiString;
begin
  PagesSkip:= (PageID = wpSelectTasks) or (PageID = wpSelectComponents) or (PageID = wpSelectProgramGroup);
end;

Function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if PagesSkip; then Result:= True;
end;
Как такое можно реализовать?
 

zettend

Старожил
Или может есть вариант как-то обернуть ShouldSkipPage и CurPageChanged в процедуру?

Что бы вышло как-то так:
Код:
Procedure Module_1();
begin
  Function ShouldSkipPage(PageID: Integer): Boolean;
  begin
    if (PageID = wpSelectTasks) or (PageID = wpSelectComponents) or (PageID = wpSelectProgramGroup) then Result:= True;
  end;
 
  Procedure CurPageChanged(CurPageID: Integer);
  begin

  end;
end;
 

Nemko

Дилетант
Модератор
Incorrect, не совсем понимаю для чего, вот что-то:

Код:
[Setup]
AppName=My Application
AppVersion=1.5
CreateAppDir=no

[Code]
var
  PagesSkip: Boolean;

procedure CheckSkipPage;
begin
case WizardForm.CurPageID of
  wpSelectTasks,wpSelectComponents,wpSelectProgramGroup: PagesSkip:=True;
  else PagesSkip:=False;
 end;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  CheckSkipPage;
  Result:=PagesSkip;
end;
Код:
[Setup]
AppName=My Application
AppVersion=1.5
CreateAppDir=no

[Code]
var
  PagesSkip: Boolean;

function CheckSkipPage: Boolean;
begin
case WizardForm.CurPageID of
  WpwpSelectTasks,wpSelectComponents,wpSelectProgramGroup: Result:=True;
  else Result:=False;
 end;
  PagesSkip:=Result;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result:=CheckSkipPage;
end;

P.S.: насчет обертки, не думаю что это как-то работает, ибо это встроенное событие в интерпретаторе кода Inno Setup.
 
Последнее редактирование:

sergey3695

Ветеран
Модератор
Код:
function PagesSkip(PageID: Integer): Boolean;
begin
  Result:=False;
if (PageID = wpSelectTasks) or (PageID = wpSelectComponents) or (PageID = wpSelectProgramGroup) then
  Result:=True;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if PagesSkip(PageID) then Result:= True;
end;
:scratchhead:
 
Последнее редактирование:
Сверху