关于FindComponent的使用,简化一些过程

在游戏配置过程中有一些较长的过程,例如下边判断输入端口合法性的:

{如果较少,还可以挨个判断}
procedure TfrmMain.ButtonNext3Click(Sender: TObject);
var
  nPort: Integer;
begin
  nPort := StrToIntDef(Trim(EditSelGate_GatePort.Text), -1);
  if (nPort < 0) or (nPort > 65535) then begin
    Application.MessageBox('网关端口设置错误！！！', '错误信息', MB_OK + MB_ICONERROR);
    EditSelGate_GatePort.SetFocus;
    Exit;
  end;
  g_Config.SelGate.GatePort[0] := nPort;

  nPort := StrToIntDef(Trim(EditSelGate_GatePort1.Text), -1);
  if (nPort < 0) or (nPort > 65535) then begin
    Application.MessageBox('网关端口设置错误！！！', '错误信息', MB_OK + MB_ICONERROR);
    EditSelGate_GatePort1.SetFocus;
    Exit;
  end;
  g_Config.SelGate.GatePort[1] := nPort;
  PageControl3.ActivePageIndex := 3;
end;
{如果较多,源代码里边是这样判断的,很明显,比较冗长}
procedure TfrmMain.ButtonNext4Click(Sender: TObject);
var
  nPort1, nPort2, nPort3, nPort4, nPort5, nPort6, nPort7, nPort8: Integer;
begin
  nPort1 := StrToIntDef(Trim(EditRunGate_GatePort1.Text), -1);
  nPort2 := StrToIntDef(Trim(EditRunGate_GatePort2.Text), -1);
  nPort3 := StrToIntDef(Trim(EditRunGate_GatePort3.Text), -1);
  nPort4 := StrToIntDef(Trim(EditRunGate_GatePort4.Text), -1);
  nPort5 := StrToIntDef(Trim(EditRunGate_GatePort5.Text), -1);
  nPort6 := StrToIntDef(Trim(EditRunGate_GatePort6.Text), -1);
  nPort7 := StrToIntDef(Trim(EditRunGate_GatePort7.Text), -1);
  nPort8 := StrToIntDef(Trim(EditRunGate_GatePort8.Text), -1);

  if (nPort1 < 0) or (nPort1 > 65535) then begin
    Application.MessageBox('网关一端口设置错误！！！', '错误信息', MB_OK + MB_ICONERROR);
    EditRunGate_GatePort1.SetFocus;
    Exit;
  end;
  if (nPort2 < 0) or (nPort2 > 65535) then begin
    Application.MessageBox('网关二端口设置错误！！！', '错误信息', MB_OK + MB_ICONERROR);
    EditRunGate_GatePort2.SetFocus;
    Exit;
  end;
  if (nPort3 < 0) or (nPort3 > 65535) then begin
    Application.MessageBox('网关三端口设置错误！！！', '错误信息', MB_OK + MB_ICONERROR);
    EditRunGate_GatePort3.SetFocus;
    Exit;
  end;
  if (nPort4 < 0) or (nPort4 > 65535) then begin
    Application.MessageBox('网关四端口设置错误！！！', '错误信息', MB_OK + MB_ICONERROR);
    EditRunGate_GatePort4.SetFocus;
    Exit;
  end;
  if (nPort5 < 0) or (nPort5 > 65535) then begin
    Application.MessageBox('网关五端口设置错误！！！', '错误信息', MB_OK + MB_ICONERROR);
    EditRunGate_GatePort5.SetFocus;
    Exit;
  end;
  if (nPort6 < 0) or (nPort6 > 65535) then begin
    Application.MessageBox('网关六端口设置错误！！！', '错误信息', MB_OK + MB_ICONERROR);
    EditRunGate_GatePort6.SetFocus;
    Exit;
  end;
  if (nPort7 < 0) or (nPort7 > 65535) then begin
    Application.MessageBox('网关七端口设置错误！！！', '错误信息', MB_OK + MB_ICONERROR);
    EditRunGate_GatePort7.SetFocus;
    Exit;
  end;
  if (nPort8 < 0) or (nPort8 > 65535) then begin
    Application.MessageBox('网关八端口设置错误！！！', '错误信息', MB_OK + MB_ICONERROR);
    EditRunGate_GatePort8.SetFocus;
    Exit;
  end;
  g_Config.RunGate.GatePort[0] := nPort1;
  g_Config.RunGate.GatePort[1] := nPort2;
  g_Config.RunGate.GatePort[2] := nPort3;
  g_Config.RunGate.GatePort[3] := nPort4;
  g_Config.RunGate.GatePort[4] := nPort5;
  g_Config.RunGate.GatePort[5] := nPort6;
  g_Config.RunGate.GatePort[6] := nPort7;
  g_Config.RunGate.GatePort[7] := nPort8;
  PageControl3.ActivePageIndex := 4;
end;

可以看到其实就是这么一回事:

1.读取输入到edit里的端口号.

2.检测是否在正常范围内(0..65535).

3.如果在就写入配置文件(  g_Config.RunGate.GatePort[0] := nPort1;).

上边的3条已经把整个过程抽象出来了,因为edit是按编号来起名的,在这里可以用findcomponent来顺序查找检测,然后赋值.改成下边这样会好些:

{检查RunGate网关端口填写是否正确}
procedure TfrmMain.ButtonNext4Click(Sender: TObject);
var
  NPort: array[0..7] of Integer;//定义端口数组
  i: Integer;
  MsgStr:string;
  EditGate:TEdit; //定义edit控件
begin
  for I := 0 to 7 do
  begin
    EditGate:=FindComponent('editrunGate_GatePort'+inttostr(i+1)) as TEdit;
    NPort[i] := StrToIntDef(Trim(EditGate.Text), -1);
    if (NPort[i] < 0) or (NPort[i] > 65535) then
    begin
      MsgStr:='网关端口'+inttostr(i+1)+'设置错误！！！';
      Application.MessageBox(PChar(msgstr), '错误信息', MB_OK + MB_ICONERROR);
      EditGate.SetFocus;;
      Exit;
    end
    else
    begin
      g_Config.RunGate.GatePort[i] := NPort[i];
    end;
  end;
  PageControl3.ActivePageIndex := 4;
end;

明显精炼了不少,其实可以用spinedit来控制的,连这个都省了,通过写这个是突然想到了findcomponen,练习一下它的用法,但这个过程还不是通用的,只适合在这里使用,写成函数就没必要了.通过自己动手,也算是学到了一点东西.