سير العمل البرمجي · نسخ مستقلة لمصفوفات Delphi

function ChangedCopy(const Values: TArray<Integer>;
  Next: Integer): TArray<Integer>;
begin
  Result := System.Copy(Values, 0, Length(Values));
  if Length(Result) > 0 then
    Result[0] := Next;
end;