我如何在过程中使用数组

Question

这是在使用一个数组时使用的代码。我想调整此代码，使其可以通过以下过程与任何数组一起使用：

Var
  tf: TextFile;
  sWord: String;
  i: Integer;
  arrDurban: array of string;
begin
  if Location='Durban' then
  begin
    i := 0;
    SetLength(arrDurban, 1);
    AssignFile(tf, '');
    Reset(tf);
    while not eof(tf) do
    begin
      Readln(tf, sWord);
      arrDurban[i] := sWord;
      Inc(i);
      SetLength(arrDurban, i + 1);
    end;
  end;

Answer 1

Type Arr: Array of string;

arrDurban:=arr;

Function FillArr(ArrParm:arr):Arr;

FillArr

使用相同的代码，但result = arr;