TFileStream => TBufferedFileStream (why not?)

pozitronik · May 20, 2019 · 4c73457 · 4c73457
1 parent 3adcd2d
commit 4c73457
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ChunkedFileStream.pas b/ChunkedFileStream.pas
@@ -9,7 +9,7 @@ interface
 	TChunkedFileStream = class(TStream)
 	private
 		FStartPos, FSize: Int64;
-		FileStream: TFileStream;
+		FileStream: TBufferedFileStream;
 	protected
 		function GetSize(): Int64; override;
 	public
@@ -32,7 +32,7 @@ constructor TChunkedFileStream.Create(const AFileName: string; Mode: Word; Chunk
 	FileSize: Int64;
 begin
 	inherited Create;
-	self.FileStream := TFileStream.Create(AFileName, Mode);
+	self.FileStream := TBufferedFileStream.Create(AFileName, Mode);
 	FileSize := FileStream.Size;
 	if (ChunkSize < 0) or (ChunkSize > FileSize) or (ChunkStart < 0) or (ChunkStart > FileSize) or (FileStream.Seek(ChunkStart, soBeginning) <> ChunkStart) then
 		raise EReadError.Create('Can''t read from ' + AFileName + ' ' + ChunkSize.ToString + ' bytes at ' + ChunkStart.ToString);