端口设置验证-优快云博客

本文链接：https://blog.youkuaiyun.com/June_Xiao/article/details/5518922

该博客内容涉及创建一个自定义向导页面，用于设置网站端口。用户在编辑框中输入端口编号，程序会进行有效性验证，确保输入值在1到65535之间，否则将显示错误提示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[Code]
var
Edit: TEdit;
PortID:Integer;

function CreatePortPages(const AfterID: Integer):Integer;
var
Labelo:TLabel;
Page: TWizardPage;
begin
      Page := CreateCustomPage(AfterID, '设置网站端口', '网站端口');
      Labelo := TLabel.Create(Page);
      Labelo.Left := ScaleX(20);
      Labelo.Top := ScaleY(20);
      Labelo.Font.size:=9;
      Labelo.Font.name:='宋体';
      Labelo.Caption := '请填写端口:';
      Labelo.Parent := Page.Surface;

      Edit := TEdit.Create(Page);
      Edit.Left := Labelo.Left;
      Edit.Top := Labelo.Top+Labelo.Height+ScaleY(10);
      Edit.Width := Page.SurfaceWidth;
      Edit.Text := '80';
      Edit.Parent := Page.Surface;
      Result:= Page.ID;
end;

procedure InitializeWizard();
begin
PortID:=CreatePortPages(wpWelcome);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
strport,strmaxch:string;
nport,nmaxch:Longint;
begin
            if CurPageID = PortID then
            begin
                strport:=Edit.Text;
                nport:=StrToIntDef(strport,0);
                if (nport<1) or (nport>65535) then
                begin
                SuppressibleMsgBox('输入不正确,请重新输入',mbCriticalError, MB_OK, MB_OK);
                Result:=False;
                end
                else
                Result:=True;
            end

else
Result:=True;
end;