Вопрос Как сделать 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;

Спойлер: или что-то2

[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.

 

[zettend]

Nemko, вы - Гений! Спасибо большое!

 

[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;