Delphi 将整数转为4字节, 将字串和字节互转

admin

一> 将一个长整型，转换成字节：

1. function TForm1.longToBytes(value: Longint): TBytes;
   
2. begin
   
3.     SetLength(result, sizeOf(value));
   
4.     move(value, result[0], sizeOf(value));
   
5. end;
   

复制代码

因为长整型有4个字节，所以转出来的字串也有相同的长度。

二> 将字符串转换成字节：

1. function TForm1.stringToBytes(const str : string): TBytes;
   
2.     var i: integer;
   
3. begin
   
4.     setLength(result, length(str));
   
5.     for i := 0 to length(str)-1 do
   
6.         result[i] := Ord(str[i+1]);  // Note:  Ord(str[i  +1  ] !  将一个char转换成ascii码
   
7.     end;

复制代码

三>  将字节转换成字符串：

1. function TForm1.bytesToString(const bytes : TBytes): string;
   
2.     var
   
3.     i: Integer;
   
4.     begin
   
5.     setLength(result, length(bytes));
   
6.     for i := 0 to length(bytes) - 1 do
   
7.         result[i+1] := char(bytes[i]);
   
8.     end;

复制代码

以上在Delphi2007中测试通过。

admin

使用IdGlobal库的例子：

1. uses
   
2.   IdGlobal; // 确保引入IdGlobal单元
   
3. 
   
4. var
   
5.   IntegerValue: Integer;
   
6.   Bytes: TIdBytes;
   
7. begin
   
8.   // 假设我们要转换的整数是16909060
   
9.   IntegerValue := 16909060;
   
10. 
    
11.   // 将整数转换为4个字节
    
12.   Bytes := ToBytes(IntegerValue, sizeof(IntegerValue));
    
13. 
    
14.   // 此时Bytes数组包含了整数的4个字节表示
    
15. end;

复制代码