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;