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);