重建丢失的代码（AddToArray）

Question

我错过了其他开发人员所使用的某些代码中的单元。

这是我能够从其他单位解读的

我需要一个名为AddToArray的函数。

我知道它需要一个TStringArray和String并返回一个TStringArray

TStringArray = array of string;


function AddToArray (A: TStringArray; S: String): TStringArray;
begin
  // result:=
end;

我不确定其余部分是如何完成的。

任何帮助将不胜感激。

感谢名单

Answer 1

最明显的实施方式是：

function AddToArray(A: TStringArray; S: String): TStringArray;
begin
  Result := A;
  SetLength(Result, Length(Result)+1);
  Result[high(Result)] := S;
end;

但如果我这样做，我会使用const参数：

function AddToArray(const A: TStringArray; const S: String): TStringArray;

好吧，如果我真的这样做，我会使用TStringList。