arrays - 如何在过程中使用数组

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;

标签： arraysdelphiprocedure