如何调用具有多个参数的过程？ [关闭]

Question

我有这个代码：

edit5.Text := IntToStr(j);
rw := j;
myRect.Left := 0;
myRect.Top := rw;
myRect.Right := 5;
myRect.Bottom := rw;
stringGrid1.Selection := myRect;
edit1.SetFocus;

我必须重写这段代码，因为我将它用于许多事件（事件button1click，button2click，每次我验证） 所以我的意思是把它变成程序，所以我可以在很多情况下调用它 到目前为止我制作的这段代码：

procedure highlight(edit1, edit5: TEdit; myrect: TGridRect;
  stringgrid1: TStringgrid; var j, rw: Integer);
begin
  edit5.Text := IntToStr(j);
  rw := j;
  myRect.Left := 0;
  myRect.Top := rw;
  myRect.Right := 5;
  myRect.Bottom := rw;
  stringGrid1.Selection := myRect;
  edit1.SetFocus;
end;

但我不能这样称呼它：

procedure Tform1.Button2Click(Sender: TObject);
begin
  highlight;
end;

如何解决？我必须拆分它吗？

Answer 1

您提取的过程不太正确。你传递了一个你不使用的矩形。您将 rw 和 j 作为 var 参数传递，但实际上它看起来像一个单值参数。所以我会这样：

procedure Highlight(Edit1, Edit5: TEdit; StringGrid: TStringGrid; rw: Integer);
begin
  Edit5.Text := IntToStr(rw);
  StringGrid.Selection := Rect(0, rw, 5, rw);
  Edit1.SetFocus;
end;

这样称呼它：

Highlight(Edit1, Edit5, StringGrid1, j);

现在，这假设您有时需要将不同的控件传递给过程。如果您总是传递相同的控件，则将过程设为您的类的方法：

procedure TMyForm.Highlight(rw: Integer);
begin
  Edit5.Text := IntToStr(rw);
  StringGrid.Selection := Rect(0, rw, 5, rw);
  Edit1.SetFocus;
end;

然后这样称呼它：

Highlight(j);

我在这里假设您作为j 传递的值可能会有所不同。所以它应该是一个参数。在决定某个东西应该是参数还是使用字段时，您需要使用这种推理。问问自己在调用方法时是否总是传递相同的值？

最后，不命名变量会让生活变得艰难。代码的读者如何知道Edit5 的特别之处以及为什么它与Edit1 的处理方式不同。为变量命名。