variables - 在 Delphi 中处理多个相似的变量/对象

Question

我正在编写一个使用多种形状的程序，我需要创建一个程序将它们全部变成白色。有问题的形状被命名为 SectorBorder1 到 SectorBorder20。

有没有办法解决像这样或类似的形状？

SectorBorder[X].brush.color := ClWhite;
Inc(X);

...其中 X 是数字(显然)，而不是必须这样做:

SectorBorder1.brush.color := ClWhite;
SectorBorder2.brush.color := ClWhite;
...
SectorBorder20.brush.color := ClWhite;

所以基本上能够通过变量区分名称。这是我能想到的描述它的唯一方式。 (抱歉，有人可以提供更好的描述吗？)任何建议都将不胜感激。

Answer 1

使用数组

private
  SectorBorders: array[1..20] of TShape;

procedure TMyForm.FormCreate(Sender: TObject):
begin
  SectorBorders[1] := SectorBorder1;
  ..
  SectorBorders[20] := SectorBorder20;
end;

procedure TMyForm.SetAllToWhite;
var
  X: Integer;
begin
  for X := Low(SectorBorders) to High(SectorBorders) do
    SectorBorders[X].Brush.Color := clWhite;
end;