今天编译一个lazarus的项目，发现只要编译，就会出现

xxxx.pas(1,1) Fatal: Compilation aborted

没有其他的错误指示。

在尝试替换ide，都发生相同的错误后，可以确定错误在pas文件里面。

经过比对之前的代码，发现在添加了如下代码后出现编译错误

property Device:TDevice index m_Device read GetDevice;

在delphi里面，这就是一个index属性的声明，可是，fpc里面，就会发生编译错误。

后，参考fpc的语法，正确的index属性声明应为：

property Device[AIndex:integer]: TDevice read GetDevice;

修改后，编译一切顺利。

记之。