delphi 连接两个Idbytes为一个IdBytes

admin

<草稿>

1. uses
   
2.   IdGlobal;
   
3. 
   
4. var
   
5.   Bytes1, Bytes2, CombinedBytes: TIdBytes;
   
6.   i: Integer;
   
7. begin
   
8.   // 假设Bytes1和Bytes2是已经初始化并填充数据的TIdBytes对象
   
9.   // 这里只是为了示例，所以我们使用简单的赋值来模拟数据
   
10.   Bytes1 := Bytes2('Hello');
    
11.   Bytes2 := Bytes2('World');
    
12. 
    
13.   // 计算CombinedBytes需要的最终大小
    
14.   SetLength(CombinedBytes, Length(Bytes1) + Length(Bytes2));
    
15. 
    
16.   // 将Bytes1的内容复制到CombinedBytes
    
17.   for i := 0 to Length(Bytes1) - 1 do
    
18.   begin
    
19.     CombinedBytes[i] := Bytes1[i];
    
20.   end;
    
21. 
    
22.   // 将Bytes2的内容复制到CombinedBytes的末尾
    
23.   for i := 0 to Length(Bytes2) - 1 do
    
24.   begin
    
25.     CombinedBytes[Length(Bytes1) + i] := Bytes2[i];
    
26.   end;
    
27. 
    
28.   // CombinedBytes现在包含了Bytes1和Bytes2的内容
    
29. end;

复制代码