字节数组与String类型的转换

还是本着上篇文章的原则，只不过在Delphi中string有点特殊！

先了解一下Delphi中的string

1.

string = AnsiString = 长字符串，理论上长度不受限制，但其实受限于最大寻址范围2的32次方=4G字节，变量Str名字是一个指针，指向位于堆内存的字符序列，字符序列起始于@Str[1]，@Str[1]偏移负16个字节的空间存储着字串长度、引用计数等信息。字符序列以NULL结束。
2.
string[n] = ShortString = 短字符串，最多容纳255个字符，实际长度是字符长度+1，是Delphi的简单类型，Str[0]存储着字符的个数，第一个字符从Str[1]开始存放，不以NULL结束。

所以只要理解这一理论，转string应该就不成问题！

//拿昨天一贴为例：需要将buf[]-buf[]的数组转为string[]
一、字节数组转string
.
var
  buf: array[..] of byte;
  str: string[];//仅仅开辟了一个32个空间的内存，由于第1位没有用setlength初始化，导致长度不定
  i  : Integer;
begin
 //如果在此处就对str进行赋值，str[]位就有计数了，如果在使用之前没有对其进行使用，用SetLength进行赋值
  for i :=  to  do buf[i] := ord('A') + i -;//测试数据
  SetLength(str, );//设置str[]=;
  Move(buf[], str[], );//内存复制
  ShowMessage (str);
end;
在这里重新认识一下SetLength,SetLength有2个功能，.对Short string类型进行设置长度(专门针对其第1位进行设置).对动态数组进行设置
 
.
如果想把buf内容赋给string(string与string[]不一样，string是一个动态数组，还没有分配空间，而string[]已经预分配了空间，只不过str[]处没赋初值，这时如果用Move的话会把Byte数组中的数据拷贝到string空间中，而string这时还没有分配内存，肯定会造成AV错误)
var
  buf: array[..] of byte;
  str: string;
  i  : Integer;
begin
  for i :=  to  do buf[i] := ord('A') + i -;
  SetLength(str, );
  Move(buf[], str[], );//注意，这里是从str[]开始复制的
  ShowMessage (str);
end;
 
二、string转为字节数组
var
  buf: array[..] of byte;
  str: string;
 
begin
  str:='abcdefg';
  Move( str[],buf[], );//注意，这里是从str[]开始复制的
  ShowMessageFmt('$%.2d, $%.2d, $%.2d, $%.2d', [buf[], buf[], buf[], buf[]]);
 
end;

字节数组与结构体的转换 还是一个原则，在此不再详述！

type
  PData=^TData;
  TData = packed record
    a: Integer;
    b: Word;
  end;
var
  bs: array[..] of Byte;
  data: PData;
begin
  FillChar(bs, Length(bs), );
  bs[] := $;
  bs[] := $;
 
  data := @bs[];//把字节数组的首址传给结构体
  ShowMessage(IntToStr(data^.a)); //系统帮我们捆绑读取
 
end;