代类型的常量声明一般这样:
type
TPoint = record
X, Y: Single;
end;
const
Origin: TPoint = (X: 0.0; Y: 0.0);今天看vcl的代码,发现还可以这样:
type
TColor = -$7FFFFFFF-1..$7FFFFFFF;
cosnt
clBlack = TColor($000000);翻了翻BORLAND的 Object Pascal Language Guide
没有发现关于这个用发的说明.
哪位大侠比较明了这样的用法,解说一下.
type
TPoint = record
X, Y: Single;
end;
const
Origin: TPoint = (X: 0.0; Y: 0.0);今天看vcl的代码,发现还可以这样:
type
TColor = -$7FFFFFFF-1..$7FFFFFFF;
cosnt
clBlack = TColor($000000);翻了翻BORLAND的 Object Pascal Language Guide
没有发现关于这个用发的说明.
哪位大侠比较明了这样的用法,解说一下.
TColor = -$7FFFFFFF-1..$7FFFFFFF;
颜色数都是有限的,这晓得吧,定义一个子界类型cosnt
clBlack = TColor($000000);定义常量CLBLACK,用TCOLOR把十六进制数000000转换成颜色的所对应的值,。