Delphi 关键字详解[absolute,]

absolute

//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
procedure TForm1.btnTestClick(Sender: TObject);
var
  str : string[32];         {string最大位数255，其实在内存中占用的是256字符，
                            字符串的第0个位置保存了字符串的长度}
  StrLen : Byte absolute str;  //StrLen 是Byte类型
//这个声明指定了变量StrLen起始地址与Str相同.
//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.

begin
  Str := 'abc';
  Edt1.Text := IntToStr(StrLen);
end;