haitao · 2008-06-06 01:18:50 · 阅读: 752 内部的具体实现可以隐藏;但是大致过程必须说明 (141字) (haitao [2] 今天 09:12 ) 相当于因此为这个函数补充了一个大致过程说明 function THandleStream.Read(var Buffer; Count: Longint): Longint; begin Result := FileRead(FHandle, Buffer, Count); if Result = -1 then Result := 0; end;