so ungefähr hatte ich mir das gedacht:
Fbytearray[0] := (ptr^ as Byte)[0];
ist schon nah dran. Allerdings geht der
as
-Operator nur bei Klassentypen (da er ein Alias für
System.AsClass
ist). Wenn du hier einen direkten (harten) Typecast verwendest, dann funktioniert das auch:
Delphi-Quellcode:
procedure FillArray(Source: Pointer; out Target: TBytes; Len: Integer);
var
Index: Integer;
begin
SetLength(Target, Len);
for Index := 0 to Pred(Len) do
begin
Target[Index] := TBytes(Source)[Index];
end;
end;
Alternativer Ansatz (rückwärts, ohne zusätzliche Indexvariable):
Delphi-Quellcode:
procedure FillArray(Source: Pointer;
out Target: TBytes; Len: Integer);
begin
SetLength(Target, Len);
Dec(Len);
while Len >= 0
do
begin
Target[Len] := TBytes(Source)[Len];
Dec(Len);
end;
end;
Wichtig ist allerdings noch, dass die beiden Typen beim Typecast dieselbe größe haben. Das trifft auf Pointer und Byte nicht zu, da Pointer ja 32 bzw. 64 Bit hat, während Byte nur 8 besitzt. Das mit
System.Move
funktioniert theoretisch auch, aber nicht so, wie
Neutral General es beschrieben hatte. Wäre aber eigentlich hier nicht notwendig. Ein anderer Weg wäre noch über
System.Copy
PS: Leider ist die Frage nicht wirklich klar gestellt, deshalb hoffe ich mal, dass ich dich richtig verstanden habe: Der Pointer zeigt auf den ersten Wert des Arrays, am Ende soll ein Byte-Array zurückgegeben werden. Es soll kopiert und nicht nur gecastet werden.