帮忙啊(30)

TBaseDataFile.getRec(Index: Integer): Pointer是自定义函数,我想知道它里面调用的Seek(Index)究竟是调用TBaseDataFile.seek(Index: Integer)还是 TDataFile.Seek(Index: Integer): 还有这句 //IDataFile = interface(IBaseDataFile) 是什么意思.是不是定义父子类的关系IDataFile = interface(IBaseDataFile) function getVOL: TArrayOfSingle; end;//////////////////////////////////////////////////////////////function TBaseDataFile.getRec(Index: Integer): Pointer;begin if (Index>-1) and (Index<getCount) then Result := Seek(Index) else Result := nil;end;///////////////////////////////////////////////////function TBaseDataFile.seek(Index: Integer): Pointer;begin if M = nil then Result := nil else Result := Pointer(Integer(getHeader) + getHeaderSize + Index * getRecSize);end;/////////////////////////////////////////////function TDataFile.Seek(Index: Integer): Pointer;begin if (M = nil) or (getCount = 0) then Result := nil else begin Index := (Index + RecStart) mod getCount; Result := Pointer(Integer(M.Memory) + getHeaderSize + Index * getRecSize); end;end;

Seek(Index)是调用TBaseDataFile.seek(Index: Integer)<类型名>=class[(<基类型名称>)] 是定义父子类的关系

de410老师,IDataFile跟IBaseDataFile是什么关系啊,是不是父子关系啊,那个是父,那个是子啊

是接口，不是类，IBaseDataFile是父，TDataFile和TBaseDataFile分别是这两个接口的实现类。在这里短篇幅无法解释清除，请多看看接口方面的资料吧，我个人比较愚昧，当时把一本书看了6次才有所理解。

接口和类我都搞糊涂了.郁闷

多人接受答案了。