单元的Interface部分
例子:
unit SysData;
interface
type
TMapFormData=record //定义导航器类型
top:Integer;
Left:Integer;
Width:Integer;
Height:Integer;
end;
TProFormData=record //定义属性窗类型
top:Integer;
Left:Integer;
Width:Integer;
Height:Integer;
end;
var
MapFormData:TMapFormData;
ProFormData:TProFormData;
MainSpaDBHandle:Integer;
implementation
initialization
end.
