有没有办法将2个数组添加到一个?

前端之家收集整理的这篇文章主要介绍了有没有办法将2个数组添加到一个?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
有没有任何简单的统一的方法添加2个阵列到一个?在下面的情况下,不可能简单地使用C:= A B语句…
我想避免每次都为其做出算法.
TPerson = record
    Birthday: Tdate;
    Name,Surname:string;
end;

Tpeople = array of TPerson;

var A,B,C:Tpeople;

C:=A+B; // it is not possible

感谢名单

解决方法

由于每个TPerson记录中的两个字符串字段,您不能仅仅使用二进制“move”,因为您会混淆字符串的引用计数,特别是在多线程环境中.

你可以手动做 – 这是快速和美好的:

TPerson = record
  Birthday: TDate;
  Name,Surname: string;
end;

TPeople = array of TPerson;

var A,C: TPeople;

// do C:=A+B
procedure Sum(const A,B: TPeople; var C: TPeople);
begin
var i,nA,nB: integer;
begin
  nA := length(A);
  nB := length(B);
  SetLength(C,nA+nB);
  for i := 0 to nA-1 do
    C[i] := A[i];
  for i := 0 to nB-1 do
    C[i+nA] := B[i];
end;

或者您可以使用我们的TDynArray包装器,它具有处理这种情况的方法

procedure AddToArray(var A: TPeople; const B: TPeople);
var DA: TDynArray;
begin
  DA.Init(TypeInfo(TPeople),A);
  DA.AddArray(B); // A := A+B
end;

AddArray方法可以添加原始数组的子端口:

/// add elements from a given dynamic array
// - the supplied source DynArray MUST be of the same exact type as the
// current used for this TDynArray
// - you can specify the start index and the number of items to take from
// the source dynamic array (leave as -1 to add till the end)
procedure AddArray(const DynArray; aStartIndex: integer=0; aCount: integer=-1);

请注意,使用这样的记录,它将使用System._CopyRecord RTL功能,而不是针对速度进行优化.我写了一个更快的版本 – 见this blog articlethis forum thread.

如果在函数/过程中使用动态数组,不要忘记使用显式的const或var参数(如上面编码的那样),否则它将在每次调用时进行临时复制,因此可能会很慢.

原文链接:https://www.f2er.com/delphi/101368.html

猜你在找的Delphi相关文章