absolute
//它使得你能夠創建一個新變量, 並且該變量的起始地址與另一個變量相同.
var
Str: string[32];
StrLen: Byte absolute Str;
//這個聲明指定了變量StrLen起始地址與Str相同.
//由於字符串的第0個位置保存了字符串的長度, 所以StrLen的值即字符串長度.
begin
Str := 'abc';
Edit1.Text := IntToStr(StrLen);
end;
原稿來源: http://mydelphi.5d6d.com/viewthread.php?tid=252&extra=&page=1