下面是一支德國人寫的函式， 我看不懂LCrdTemp: cardinal absolute Result;這句， 另外我覺得LCrdTemp := LCrdTemp * Radix cardinal(Pos(Value[1], HEX_UPPER) - 1);這句也是怪怪的 // translate a radix coded string into an integer function RadixToInt(Value: string; Radix: byte): integer; var LCrdTemp: cardinal absolute Result; begin LCrdTemp := 0; Value := UpperCase(Value); while Value <> '' do begin if not (Pos(Value[1], HEX_UPPER) in [1..Radix]) then raise EMPHException.CreateFmt(ERR_INVALID_RADIXCHAR, [Value[1], Radix]); LCrdTemp := LCrdTemp * Radix cardinal(Pos(Value[1], HEX_UPPER) - 1); Delete(Value, 1,1); end; end; (* try to find the correct radix (based on prefix/suffix) and return the number, known prefixes/suffixes are:
0x, 0X, $, h, H: radix 16
o, O, 0, o, O: radix 8
%, %: radix 2
otherwise: radix 10 *) end.

Extracted from Delphi help:    

引言:Absolute addresses You can create a new variable that resides at the same address as another variable. To do so, put the directive absolute after the type name in the declaration of the new variable, followed by the name of an existing (previously declared) variable. For example, var Str: string[32]; StrLen: Byte absolute Str; specifies that the variable StrLen should start at the same address as Str. Since the first byte of a short string contains the string's length, the value of StrLen is the length of Str. You cannot initialize a variable in an absolute declaration or combine absolute with any other directives.

So replacing LCrdTemp with Result will make it clear?

var Str: string[32]; StrLen: Byte absolute Str; Happy New Year! Tanks a lot ! I thought that I understood roughly, But I can't realize why "StrLen" this variable used the same address with "Str" ? Is any useful reason for the sample ? "Str" variable has 32 bytes capacity to store data , but StrLen replace the first address. In Delphi the first address of string is record string's length automatically , I am afraid of cause memory error by change the first address of Delphi string. Can you provide another useful sample to me? Help me to realize clearly ! Thank you very much!

Happy New Year! From Delphi help:    A ShortString is 0 to 255 characters long. While the length of a ShortString can change dynamically, its memory is a statically allocated 256 bytes; the first byte stores the length of the string, and the remaining 255 bytes are available for characters. If S is a ShortString variable, Ord(S[0]), like Length(S), returns the length of S; assigning a value to S[0], like calling SetLength, changes the length of S. ShortString is maintained for backward compatibility only. So I think changing the first byte (i.e. StrLen) should be fine. BTW Str will take 32 1=33 bytes while StrLen should be a name of a Delphi function? function StrLen(const Str: PChar): Cardinal;