Delphi 结构体常量的定义
TSimple = record LowVal: double; HighVal: double; end; TSimpleArr: array[1..2] of TSimple = ( (LowVal:0; HighVal:0), (LowVal:0; HighVal:0) );
//================= TUser= record Name: string; Age: integer; end;
TUserArr: array[1..2] of TUser = ( (Name: "lin", Age: 28), (Name: "Go", Age: 20) );
结构类型的常量可以赋值 如: TA=record a:Integer; b:Integer; end; const x:TA=(a:100;b:200);