var
MyFile:TFileStream;
Buffer:array[0..Max] of byte;
i:integer;
begin
MyFile:=TFileStream.create('文件名',fmOpenRead or fmShareDenyWrite);
MyFile.Position := 0;
try
i:=0;
while i <MyFile.size do
begin
myfile.read(buffer,SizeOf(buffer));
inc(i,SizeOf(buffer));
end;
finally
myfile.free;
end;
end;
流式文件像流水线一样顺序操作
var
MyFile:TFileStream;
Buffer:array[0..65200] of byte;
i:integer;
begin
MyFile:=TFileStream.create('c:\exam.exe',fmOpenRead or fmShareDenyWrite);
try
i:=0;
while i<MyFile.size do
begin
myfile.read(buffer,high(buffer));
inc(i,high(buffer));
end;
finally
myfile.free;
end;
end;