一个脚本程序寻求解读，估计数VB

不是vb，是delphi，看起来是用来判断一个数据库表里是否有记录，有则返回1，无记录或无此表返回0
function HasData(TableName: string): Integer; //参数TableName要检查的表名，返回值为整型
var //声明变量部分
DataView: TReportDataClass; //可能是数据报表类？
FieldDefs: TFastFieldDefs; //可能是字段定义
Rec: Integer; //可能是记录数
begin //函数开始
DataView := RepDB.Table[TableName]; //打开指定表？
Result := 0; //初始返回值设0
if DataView = nil then //即创建失败，nil为空指针
Exit;
DataView.LockStruct(True); //Dataview的自有方法，不知功能，大概是锁定记录一类的
try //尝试执行
DataView.OpenDataTable; //打开表
DataView.OpenIndex; //打开索引
if DataView.FieldDefs.TbIndex.FindKey(CurZDM, Rec) then //不知道是查询所有的记录，还是查询特定的记录，总之是查询，CurZDM未在此函数内声明，怀疑为全局变量
begin
Result := 1; //结果为1,True
end;
finally
DataView.UnLockStruct; //尝试执行的结尾
end;
end;//函数结束