Sample program: |
The following short program shows how to read part of a file:
program ReadFileStream;
const
NBYTES = 40;
var
FName : string;
FStream : TFileStream;
Buf : TBytes;
begin
Fname := SelectFile (GetILabDir (idWork), '*.*', 'Please select a file');
if FName <> '' then
begin
FStream := TFileStream.Create (FName, fmOpenRead);
cout ('FName=', FStream.FileName);
cout ('Size=',FStream.Size);
cout ('Position=',FStream.Position);
SetLength (Buf, NBYTES);
FStream.ReadBuffer (Buf, NBYTES);
cout ('Buffer: ',Buf);
cout ('Position=',FStream.Position);
end;
FStream.Free;
end.
|