delphi - 重建丢失的代码 (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.