Как ускорить копирование общего массива?

Question

У меня есть простой массив:

Myarray<T> = array[0..100] of T; 

Как скопировать этот так быстро, как это возможно, в другой массив. Обратите внимание, что источником всегда является простой общий массив, а dest может быть динамическим массивом. (но я сомневаюсь, что это важно).

Я попытался

move(Source[0], dest[0], count * sizeof(T)); 

Но это не играет хорошо с управляемыми типами.

Я в надежде получить что-то быстрее, чем:

for i:= 0 to count -1 do D[i]:= S[i]; 

Какие варианты у меня есть?

фона
Массива является частью структуры ВТКЕЯ и есть много копирования происходит.
Мне нужна скорость.

Answer 1

я задал тот же вопрос, на Google+ - https://plus.google.com/u/0/116430453567926016001/posts/b1u1shzkmrW

код является Стефан Glienke и я повторно отправил код здесь с незначительными изменениями двух типов переменных, так что 64 бит, совместимая.

uses 
    TypInfo, 
    SysUtils; 

type 
    TArray = record 
    class function Clone<T>(const source: T): T; static; 
    end; 

function DynArrayLength(const A: Pointer): NativeInt; 
type 
    PDynArrayRec = ^TDynArrayRec; 
    TDynArrayRec = packed record 
    {$IFDEF CPUX64} 
    _Padding: LongInt; 
    {$ENDIF} 
    RefCnt: LongInt; 
    Length: NativeInt; 
    end; 
begin 
    Result := 0; 
    if A <> nil then 
    Result := PDynArrayRec(PByte(A) - SizeOf(TDynArrayRec))^.Length; 
end; 

{$POINTERMATH ON} 
type 
    PArray = ^Pointer; 
{$POINTERMATH OFF} 

procedure CopyArrayDeep(Dest, Source: PArray; TypeInfo: Pointer; Count: NativeInt); 
var 
    typeData: PTypeData; 
    elType: PPTypeInfo; 
    i: Integer; 
len : NativeInt; 
begin 
    if (Source = nil) or (Count = 0) then 
    Exit; 
    typeData := GetTypeData(TypeInfo); 
    elType := typeData.elType; 
    if (elType <> nil) and (elType^.kind = tkDynArray) then 
    begin 
    for i := 0 to Count-1 do 
    begin 
     len := DynArrayLength(Source[i]); 
     DynArraySetLength(Dest[i], elType^, 1,@len); 
     CopyArrayDeep(Dest[i], Source[i], elType^, len); 
    end; 
    end 
    else 
    if elType <> nil then 
     CopyArray(Dest, Source, elType^, Count) 
    else 
     Move(Source^, Dest^, Count * typeData.elSize); 
end; 

class function TArray.Clone<T>(const source: T): T; 
var 
    p: PTypeInfo; 
    count: NativeInt; 
    i: Integer; 
begin 
    p := TypeInfo(T); 
    if p.Kind <> tkDynArray then 
    raise ENotSupportedException.Create('type not supported'); 
    count := DynArrayLength(PArray(@source)^); 
    DynArraySetLength(PArray(@Result)^, p, 1,@count); 
    CopyArrayDeep(PArray(@Result)^, PArray(@source)^, p, count); 
end;