Delphi 将整型编码为utf-8

admin

1. uses
   
2.   System.SysUtils;
   
3. 
   
4. var
   
5.   intValue: Integer;
   
6.   utf8Bytes: TBytes;
   
7.   utf8Str: string;
   
8. begin
   
9.   intValue := 123456; // 假设这是要编码的整数
   
10. 
    
11.   // 将整数转换为UTF-8字节
    
12.   utf8Bytes := TEncoding.UTF8.GetBytes(IntToStr(intValue));
    
13. 
    
14.   // 如果需要将字节转换为可读的字符串
    
15.   utf8Str := TEncoding.UTF8.GetString(utf8Bytes);
    
16. 
    
17.   // 输出结果
    
18.   WriteLn('UTF-8 Encoded: ' + utf8Str);
    
19. end;

复制代码

草稿，抄自BaiduAI，需要Delphi2009以上。