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 去除右边指定字符

Delphi kbmmw安装

Delphi获取13位格林治时间实现方法

Delphi获取程序自身路径的函数

Delphi treeview �c 自动给标题上加图片

Delphi 指定在ie浏览器或ie内核打开链接

Delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）

dekphi 智能《疯狂刷新》辅助工具v3.1更新开源

Delphi 解决android 9上无法使用http协议

Delphi tscrollbar 用于滚动窗口、组件内容

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

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