在Delphi中，可以使用CopyMemory函數來復制數組數據。CopyMemory函數屬于Windows API函數，需要在程序中引入Windows單元才能使用。
以下是一個示例代碼，演示如何使用CopyMemory函數來復制數組數據：
uses
Windows;
procedure CopyArrayData(const sourceArray: array of Byte; var destArray: array of Byte);
begin
if Length(sourceArray) <> Length(destArray) then
Exit;
CopyMemory(@destArray[0], @sourceArray[0], Length(sourceArray));
end;
var
sourceArray: array[0..4] of Byte = (1, 2, 3, 4, 5);
destArray: array[0..4] of Byte;
begin
CopyArrayData(sourceArray, destArray);
// 輸出目標數組數據
for i := Low(destArray) to High(destArray) do
WriteLn(destArray[i]);
end.
在上面的示例中，我們定義了一個CopyArrayData過程來復制數組數據。首先檢查源數組和目標數組的長度是否相同，然后使用CopyMemory函數將源數組的數據復制到目標數組中。最后，我們通過循環輸出目標數組的數據。
