// ####数组常数
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;
Delphi类型区分——常数
最新推荐文章于 2019-08-13 21:26:00 发布