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。