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
时间: 2024-12-17 00:08:26