|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
type MailingListRecord = record { 声明记录用关键字record} FirstName: string; LastName: string; Address: string; City: string; State: string; Zip: Integer; end;var MLRecord: MailingListRecord; { 定义一个该记录的变量}begin { 当使用记录时，用小圆点来访问它的字段} MLRecord.FirstName := 'Bruce'; MLRecord.LastName := 'Reisdorph'; MLRecord.Address := '123 Inspiration Pt.'; MLRecord.City := 'Merced'; MLRecord.State := 'CA'; MLRecord.Zip := 99999; { 使用with语句来简化上面的字段的输入} { with表示“用这个对象'MLRecord'做下列”} with MLRecord do begin FirstName := 'Bruce'; LastName := 'Reisdorph'; Address := '123 Inspiration Pt.'; City := 'Merced'; State := 'CA'; Zip := 99999; end; { with可以减少键入量，同时也使程序可读性更强}end; |