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 ado通用操作数据单元

Delphi xe 与plc通讯（intcpserver 二进制）

Delphi 获取自身软件的版本号

Delphi xe7的android应用设定wifi的有效无效

Delphi操作usb摄像头类

Delphi xe7实现的登录窗体的正确用法示例

Delphi 获得memo、richedit的光标位置

Delphi多线程程序示例

Delphi console程序中一种定时方法

Delphi 使用firedac tfdibbackup和tfdibrestore备份和还原firebird

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

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