Delphi 重建丢失的代码（AddToArray）

我在另一个开发人员编写的代码中缺少了一个单元

这就是我从其他单位破译出来的

我需要一个名为AddToArray的函数

我知道它需要一个tstringaray和字符串，然后返回一个TStringArray

TStringArray = array of string;


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

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

任何帮助都将不胜感激

---

thanx最明显的实现方式是：

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

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

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

---

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

TStringList

我会把它变成一个过程。无论如何，任何简单的实现都可能是非最优的。发挥你的想象力。当一个名为

AddToArray

的函数接收一个对象和一个与该对象类型相同的数组时，您希望它做什么？到目前为止，您自己尝试过解决这个问题吗？这看起来像是一个“我有一个任务，为我做我的工作”的问题，用一个虚构的故事来掩盖它。请编辑以显示您为解决此问题所做的努力。