请教各位 ( 积分: 100 )

看到别人的程序中有个单元是下列格式：
interface
uses
An_AnalysisCale_Head, SysUtils, Math, Variants;

function Common_Set:Boolean;
implementation

const
TITLE＝An_CommonSet_TITLE;
Var
Wk_HonBaseNensyo: Currency;

function A001_uriagedaka: Boolean;
begin
Result:=false
Alarm_Tb[1,1]:=0;
try
Alarm_Tb[1,1]:=Int(Zaimu_Tb1[1,70]*12/KesanMon);
case Gyousyu of
'G','S','T'
begin
if Alarm_Tb[1,1]<Zaimu_Tb1[1,103]then
Alarm_Tb[1,1]:=Zaimu_Tb1[1,1]+Zaimu_Tb1[1,103];
end;

Result:=true
except
on E:EMathError do
DebugPrint(TITLE,'A001_uriagedaka',E.Message);
else
DebugPrint(TITLE,'A001_uriagedaka','Error');
end;
end;
end.

大家可以看到，这个单元中没有Unit关键字，直接就是Interface，我搞不懂，为什么没有
单元名称定义呢？什么时候才可能这样使用呢？

呵呵~~~~那文件名是什么呢? 或者只是个文本文件呢

别的位置引用了这个单元吧. 如同c的include

经过确认，还是有单元名称的。算了，大家别费劲了，散分。心痛呀！