Jak skopiować tablicę?

Question

Mam taki podstawowy problem w Delphi, nie mogę go rozwiązać.

mój kod:

Uwaga: Datar jest lokalny w poniższych metod, ale zazwyczaj jest to klasa var.Just do koncepcji, że to lokalny.

class procedure TCelebrity.BeginRead(var input:Array of byte); 
var DataR:Array of byte; 
begin 
    VirtualFree(@DataRead,High(DataRead),MEM_RELEASE); 
    SetLength(DataR,Length(input)); 
    Move(input,DataR,Length(input)); 
end; 

To kompiluje, ale po wykonaniu funkcji Move() DataR = nil.

Druga próba:

class procedure TCelebrity.BeginRead(var input:Array of byte); 
var DataR:Array of byte; 
begin 
    VirtualFree(@DataRead,High(DataRead),MEM_RELEASE); 
    SetLength(DataR,Length(input)); 
    DataR := Copy(input,0,Length(input)); 
end; 

nie skompilować na all.Error w trzeciej linii (Datar: = Copy (wejście ....) mówiąc: "niezgodne typy"

Gdzie jest. ?!

Answer 1

problem wszyscy są Array of byte Dlaczego nie użyć do

SetLength(DataR,Length(input)); 
for i:=Low(input) to High(input) do 
    DataR[i]:=input[i]; 

BTW: jeśli chcesz są tablice podając jako parametr, należy zadeklarować je jako typ, np:

type 
    TMyArray = array of byte; 

i używać TMyArray jako parametry typu.

Edytuj: Powiadomiono mnie o niższej wartości. W moim oryginalnym wpisie było to dla i: = 0, ale i: = Low (input) jest bezpieczniejsze i bardziej czyste.

Answer 2

Spróbuj:

class procedure TCelebrity.BeginRead(var input:Array of byte); 
var DataR:Array of byte; 
begin 
    VirtualFree(@DataRead,High(DataRead),MEM_RELEASE); 
    SetLength(DataR,Length(input)); 
    Move(input[0],DataR,Length(input)); 
end; 

Answer 3

spróbować tej

type 
    TByteDynArray = array of Byte; 

function CopyData(const Input:array of Byte):TByteDynArray; 
begin 
    SetLength(Result, Length(Input)); 
    Move(input[0], Result[0], Length(Input)); 
end; 

Answer 4

procedury Move nie ruszy fragment pamięci. Kopiuje Count bajty. W ten sposób otrzymasz dwie różne identyczne tablice: Input i DataR.

procedure CopyData(const Input: Array of Byte); 
var 
    DataR: Array of Byte; 
begin 
    SetLength(DataR, Length(Input)); 
    Move(Input[0], DataR[0], SizeOf(Byte)*Length(Input)); 
end; 

P.s. w przypadku tablic statycznych można użyć SizeOf (Input) zamiast SizeOf (Byte) * Length (Input). Zamiast Byte może być inny typ danych.