有没什么函数能判断一个结构体全是0,该怎么处理

有没什么函数能判断一个结构体全是0
比如 

xxx = record
  i: integer;
  s: string[10];
end;

内存里是紧凑排序的，我现在想是可以从起始地址开始循环逐个字节读取来判断，不知道有没现成的函数

------解决方案--------------------
关注一下
帮你顶顶先

------解决方案--------------------
结构体里的string，内容和结构体所在空间根本就不是连续的。结构体里的string，你可以理解为只是一个指针，实际字符串数据是放在另外一个地方的。

showmessage(inttostr(integer(@xxx)));
showmessage(inttostr(integer(@xxx.s)));
showmessage(inttostr(integer(@xxx.s[1])));
showmessage(inttostr(integer(@xxx.s[1][1])));

自己试下就知道了