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