[游戏开发]Delphi char与byte类型数据转换

昨天在群里遇到有人问 char数组如何转换为tbytes

tbytes = array of byte    也是数组

方法1，

move函数

 var
  c: array[0..9] of Char;
  d: TBytes;
begin
  c[0] := 'a';
  c[1] := 'b';
  c[2] := 'c';
  c[3] := 'd';
  c[4] := 'a';
  c[5] := 'a';
  c[6] := 'a';
  c[7] := 'a';
  c[8] := '9';
  c[9] := '8';

  setlength(d,length(c));
  Move(c[0],d[0],SizeOf(c)); 
//d = (97, 0, 98, 0, 99, 0, 100, 0, 97, 0) 明显不对，为什么这么多0？
  



end

为什么不对？move函数无法实现转换嘛？

思路

现在来看char与byte类型

sizeof(char) = 2

sizeof(byte) = 1

char存的是一个字符，长度为2个字节 最大65535

byte是数字，一个字节 最大0..255

很明显byte存不下char

一个存不下，那用两个byte存一个char，应该ok吧。

setlength(d,length(c));

这个c长度是10，

如果d也是10，那肯定会丢失数据

了解本专栏 订阅专栏 解锁全文 学习会员免费看 赠一年