在不使用循环的情况下在Delphi中一次分配数组的值[关闭]

Question

是否可以一次分配相同类型的值？

在我的例子中，我有一个从 TComponent 派生的自定义组件，我称之为 TBox。

TBox 中有 Left 属性。

我有一个 TBox 数组，是否可以将属性 Left 分配给所有 不使用循环同时使用 TBox 组件？

使用 for 循环设置 Left 值：

  var BoxArray: array [0..9] of TBox;
      i: integer;
begin
  for i := 0 to 9 do
  begin
    BoxArray[i] := TBox.Create(nil);
    BoxArray[i].Left := 0;
  end;
end;

我想在没有 for 循环或任何类型的循环的情况下执行上述操作。 我想将新值应用到 Left 而不遍历每个 TBox 但只需立即将新值应用于所有这些。

Answer 1

我想在没有 for 循环或任何类型的循环的情况下执行上述操作。我想在不遍历每个 TBox 的情况下将新值应用于 Left，而只需立即将新值应用于所有这些。

如果您需要写入多个内存位置，则需要某种形式的迭代。即使您找到了一种编写高级代码的方法，以使循环或迭代不可见，但在此过程中的某个地方仍需要进行迭代。

如果您的目标是提高性能，那么恐怕我们需要了解更多细节才能提供具体帮助。

Answer 2

正如 David Heffernan 已经很难过的那样，一次写入多个内存位置是不可能的，这意味着一次修改多个变量或多个字段是不可能的。 从技术上讲，您可以一次更改多个属性，但前提是所有这些属性都读取相同的字段，因为更改字段值会影响读取它的所有属性。

现在，为了让您的代码看起来更好看，您可以修改 TBox 构造函数，使其也接受初始变量的附加可选参数。

type
  TBox = class(TComponent)
  ...
  public
    consturctor Create(AOwner: TComponent; Left: Integer = 0; Top: Integer = 0); override;
  ...
  end;

...

implementation

...

constructor TBox.Create(AOwner: TComponent; ALeft: Integer = 0; ATop: Integer = 0);
begin
  inherited Create(AOwner);
  self.Left := ALeft;
  self.Top := ATop;
end;

所以现在您可以通过两种方式创建您的 TBox：

BoxArray[i] := TBox.Create(nil);

将使用构造函数方法实现中定义的默认位置参数创建您的 TBox。

BoxArray[i] := TBox.Create(nil, 5, 10);

将使用您传递给构造方法的位置参数创建您的 TBox。

注意：可选参数从左到右读取，中间不能跳过一个。

BoxArray[i] := TBox.Create(nil, 5); //Is valid and top will be 0 (default value)

BoxArray[i] := TBox.Create(nil, , 10); //Is not valid and will raise compiler error

Answer 3

如果使用 TArray 和构造函数而不是 TBox 数组，则可以这样做；

TBox = class
    left, right : Integer;
    constructor Create(l,r : Integer);
end;

constructor TBox.Create(l,r : Integer);
begin
    left := l;
    right := r;
end;

procedure TForm2.FormCreate(Sender : TObject);
var
    boxes : TArray<TBox>;
begin
    boxes := TArray<TBox>.Create(TBox.Create(1,2),TBox.Create(5,10));
end;