Delphi类型区分——常数

// ####数组常数
Procedure ArrayExamples;
const
  DaysOfWeek : array[1..7] of string = ('Sunday', 'Monday', 'Tuesday',
	'Wednesday', 'Thursday', 'Friday', 'Saturday' );
  MonthsOfYear : array[1..12] of string = ('January', 'February', 'March',
	'April', 'May', 'June', 'July', 'August','September', 'October',
	'November', 'December' );
  EXAMPLE1 = 'February 12, 1966 occurred on a %s';
  EXAMPLE2 = 'The fourth month is %s';
var
  Output : string;
  Day : Integer;
begin
  Day := DayOfWeek( StrToDate('02/12/1966'));
  Output := Format( EXAMPLE1, [DaysOfWeek[Day] ] );
  ShowMessage( Output );
  Output := Format( EXAMPLE2, [ MonthsOfYear[4] ] );
  ShowMessage(Output);
end;

// ###记录常数
// 记录常数是类型为记录的常量数据。
TPoint = record
  x: Longint;
  y: Longint;
end;

// ##初始化记录常数：
// 以 fieldname:value 的形式指定每个字段，将名字和值对的集合用括弧括起来。
// 这里是一个由四个点构成的数组。
const
Points : array[0..3] of TPoint = ((X:10;Y:10), (X:10;Y:100), (X:100;Y:100), (X:100; Y:10));
Procedure DrawRect( const Points : Array of TPoint );
var
I : Integer;
begin
Canvas.PenPos := Points[0];
for I := Low(Points) to High(Points) do
Canvas.LineTo( Points[I].X, Points[I].Y );
Canvas.LineTo( Points[0].X, Points[0].Y );
end;