Delphi的字节对齐和简单string结构

procedure TForm1.Button1Click(Sender: TObject);

type

TTest = record

sAccount: string[31]; // 如果不加Packed 30和31是相同的大小 虽然是相同的，如果网络编程，传递后转换，Delphi是识别不出来的，会出现越界问题。

sChrName: string[15];

sUserAddr: string[15];

nSessionID: Integer;

end;

var

LLh: TTest;

begin

LLh.sAccount := '1234';

ShowMessage(Format('%d, %d, %x', [SizeOf(LLh), Integer((PChar(@LLh))^), Integer(LLh.sAccount[1])])); // 48, 4

// sAccount: string[12] 字节 13 ， sAccount[1]前一个字节是长度

end;