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;

如何将数组的单个元素传递给程序？

1 个答案: