program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; TYPE Trec = record Member1, Member2: Integer; end; CONST IntRec: Trec = (Member1: 55; Member2: 2); begin Writeln(IntRec.Member1); Writeln(IntRec.Member2); Readln; end.
定义的时候，是可以进行赋值的 ，记录类型好神奇啊 ！
Delphi XE6记录类型赋值,布布扣,bubuko.com
原文：http://www.cnblogs.com/GodPan/p/3728808.html