错在何处？

Question

在书中的一个文件管理的例子程序中有这样一行代码
unit SysUtils，classes
...raise EFOpenError.Create(FmtLoadStr(SFOpenError,[FileName]));编译时出错 Undeclared identifier: 'SFOpenError'
我怀疑是缺少头文件,在delphi帮助中搜索SFOpenError，无此关键字。请大家指点一下
错在何处？如何改正？

Answer 1

type
   EFOpenError = class (exception);

Answer 2

linzhisong(無聊) 
 
 
  uses QConsts后出现如下错误 Incompatible types: 'Integer' and 'String'

Answer 3

type
   EFOpenError = class (exception);
错误依然存在！

Answer 4

使用这句uses单元Constsraise EFOpenError.CreateResFmt(@SFOpenError, [FileName]);

Answer 5

谢谢 jacky_shen(jacky) 
 
 uses单元Consts 改为 uses单元QConsts raise EFOpenError.CreateResFmt(@SFOpenError, [FileName]);通过结帖！！！ 
 

Answer 6

我用的是DELPHI5，SFOpenError定义的所在单元在Consts。