Low(X)：返回一个类型或变量的最小值 （转载 http://www.old-newbie.com/low-function/）

声明： function Low ( type or variable ) : Ordinal type;

描述：Low函数返回一个类型或某个类型变量的最小允许值。它只应用于字符、数组、枚举和短字符串。对于数组，它返回数组的最小索引。

备注：对于多维数组，它返回第一个子数组（大多定义在数组范围最左边的那个）的最小索引。一个开放数组的最小元素被独立给予为数组的开始索引，通常是0。

{Low应用于字符、数组、枚举和短字符串}
type
// 声明字符、数组、枚举和短字符串
TChar  = char;
TArray = array [3..7] of Integer;
TEnum  = (Mon=5, Tue, Wed, Thu, Fri, Sat, Sun);
TShort = shortstring;
 
var
// 声明上述类型的变量
myChar  : TChar;
myArray : TArray;
myEnum  : TEnum;
myShort : TShort;
 
begin
// 显示类型和变量的最小值
ShowMessage('Low(TChar)    = '+IntToStr(Ord(Low(TChar))));
ShowMessage('Low(myChar)   = '+IntToStr(Ord(Low(myChar))));
 
ShowMessage('Low(TArray)   = '+IntToStr(Low(TArray)));
ShowMessage('Low(myArray)  = '+IntToStr(Low(myArray)));
ShowMessage('High(myArray) = '+IntToStr(High(myArray)));
 
ShowMessage('Low(TEnum)    = '+IntToStr(Ord(Low(TEnum))));
ShowMessage('Low(myEnum)   = '+IntToStr(Ord(Low(myEnum))));
ShowMessage('High(myEnum)  = '+IntToStr(Ord(High(myEnum))));
 
ShowMessage('Low(TShort)   = '+IntToStr(Ord(Low(TShort))));
ShowMessage('Low(myShort)  = '+IntToStr(Ord(Low(myShort))));
end;

程序运行结果：

Low(TChar) = 0

Low(myChar) = 0

 

Low(TArray) = 3

Low(myArray) = 3

Hig( myArray) = 7

 

Low(TEnum) = 5

Low(myEnum) = 5

Hig( myEnum) = 11

 

Low(TShort) = 0

Low(myShort) = 0