delphi - 如何将数组的单个元素传递给过程？

Question

示例

procedure TForm1.ButtonClick(Sender: TObject);
var x:integer;
begin
   SetLength(MyArray,10)
   for x:=0 to 9 do FillWithRandomNumbers(MyArray[x]);
end;

Procedure FillWithRandomNumbers(var MyArray: Array of double);
begin
  MyArray:=Random; //<-I have no idea what to do here :(
end;

正如您所看到的，我正在尝试将单个元素传递给过程，以便在指定的数组单元上执行某些任务。例如，过程 FillWithRandomNumbers 应采用 MyArray[2] 并用随机数填充此单元格。

Answer 1

您想要传递单个数组元素，但您的过程需要一个完整的数组。要直接回答您的实际问题，您的程序应定义为:

Procedure FillWithRandomNumber(var Value: double);  
begin
  Value:= Random;
end;

procedure TForm1.ButtonClick(Sender: TObject);
var x:integer;
begin
   SetLength(MyArray,10)
   for x:=0 to 9 do FillWithRandomNumber(MyArray[x]);
end;

或者你可以这样做:

procedure TForm1.ButtonClick(Sender: TObject);
begin
   SetLength(MyArray, 10);
   FillWithRandomNumbers(MyArray);
end;

Procedure FillWithRandomNumbers(var SomeArray: Array of double);
var
  X: Integer;
begin
  for X := Low(SomeArray) to High(SomeArray) do begin
    SomeArray[X] := Random;
  end;
end;

或者更简单，根本不使用过程:

procedure TForm1.ButtonClick(Sender: TObject);
var
  X: Integer;
begin
  SetLength(MyArray, 10);
  for X := 0 to High(Array) do begin
    MyArray[X]:= Random;
  end;
end;