Comment copier une matrice?

Question

J'ai un tel problème de base dans Delphi, je ne peux pas le résoudre.

Mon code:

Note: Datar est locale dans les méthodes ci-dessous, mais en général il est une classe var.Just pour le concept, il est local.

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; 

Ceci compile, mais après que Move() est exécuté DataR = nil.

Deuxième essai:

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; 

Cela ne compile pas à all.Error à la troisième ligne (Datar: = Copier (entrée ....) en disant "types" incompatibles

Où est. ! le problème Ils sont tous tableau d'octets

Answer 1

Pourquoi ne pas utiliser pour

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

BTW: si vous voulez avoir des tableaux de passage en tant que paramètre, vous devez les déclarer comme un type, par exemple:

type 
    TMyArray = array of byte; 

et utiliser TMyArray en tant que type de paramètres.

Modifier: J'ai été averti de la plus faible valeur. Dans mon article original, c'était pour i: = 0, mais i: = Low (entrée) est plus sûr et plus pur.

Answer 2

Essayez:

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

essayer cette

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

procédure de déplacement ne se déplace pas une partie de la mémoire. Il copie Count octets. Vous obtiendrez ainsi deux tableaux identiques différents: Input et 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. Avec les tableaux statiques, vous pouvez utiliser SizeOf (Input) au lieu de SizeOf (Byte) * Length (Input). Au lieu de Byte, il peut s'agir d'un autre type de données.