16,748
社区成员
发帖
与我相关
我的任务
分享你知道它等于什么？？
//看看A最后值是什么。
procedure TForm1.Button1Click(Sender: TObject);
type
TSubRangeA = 1 .. 100;
TSubRangeB = 1 .. 999;
var
A : TSubRangeA;
B : TSubRangeB;
begin
B := 998;
A := B; // A值最后是什么？？
end;
procedure TForm1.Button1Click(Sender: TObject);
type
TSubRangeA = 1 .. 100;
TSubRangeB = 1 .. 999;
var
A : TSubRangeA;
B : TSubRangeB;
begin
B := 998;
A := B; // A值最后是什么？？
end;
...全文
请发表友善的回复…
发表回复
