delphi 合并动态数组

本文整理自网络，侵删。

 
procedure TForm2.btn1Click(Sender: TObject);
var
  arr1, arr2: TBytes;
  len: Integer;
begin
  SetLength(arr1, 3);
  SetLength(arr2, 3);
  arr1[0] := 65;
  arr1[1] := 66;
  arr1[2] := 67;
  arr2[0] := 68;
  arr2[1] := 69;
  arr2[2] := 70;
  len := Length(arr1);
  SetLength(arr1, len + Length(arr2));
  CopyMemory(@arr1[len], arr2, Length(arr2));
  ShowMessage(StringOf(arr1)); { ABCDEF }
end;
 

相关阅读 >>

Delphi使用spcomm实现串口通信 基础知识

Delphi xe可执行文件上启用dep和aslr

Delphi中json回车换行符转义

Delphi 如何从一张图片中裁剪一部分距形图片另存为文件（使用canvas.copyrect）

Delphi 得到一个cuid用户唯一标识

Delphi 得到执行程序的当前所在完整路径

Delphi中三种方法获取windows任务栏的高度

winapi 字符及字符串函数(13): lstrcmp、lstrcmpi - 对比串

Delphi代码直接注入别的进程

Delphi richedit中插入带背景色文本的一种思路

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 合并动态数组