很有意思，在Delphi编译器的一个错误，到了lazarus则更离谱

cjrman88

在D编译时能检出到错误：
procedure TForm1.Button1Click(Sender: TObject);
type
   TA = 1 .. 100;
   TB = 1 .. 999;
var
     A:TA;  B:TB;
begin
  A:=100;
  B:=998;
  A:=998; //错误，子界越界，不能赋值 如果换成A：=B     则
               //    Delphi 可以通过编译并得到错误结果230 ；到了 lazarus
               //    不论怎样写都能通过编译并得到同样错误的结果230      
  Label1.Caption:=IntToStr(A);
end;
说明Delphi在语法检查上更为严格。

fpcstone

标题与描述不符，要是用Ｃ，估计又说是BUG一堆。只要是编译器编译出的代码符合你的源代码的规则，就不能说是编译器的错误或BUG。
话说你知道结果为什么是２３０而不是２３１不？

popzone

A:=B;
只是编译器帮你优化成了
A:=Byte(B);

zeus-chu

常数越界是静态错误; 只要在编译时启用 range checking (用 -Cr 选项), FPC 也会报告错误。

yufeng1977

你的测试有什么实际的意义吗？求解

dtamade

严谨的人做严谨的事