mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 20:29:32 +02:00
b660729f12
U packages/fcl-base/src/bufstream.pp A tests/webtbs/tw38351.pp --- Recording mergeinfo for merge of r48282 into '.': U . # revisions: 48282 r48282 | florian | 2021-01-21 22:08:13 +0100 (Thu, 21 Jan 2021) | 1 line Changed paths: M /trunk/packages/fcl-base/src/bufstream.pp A /trunk/tests/webtbs/tw38351.pp * fix TBufferedFileStream.Seek(0,soBeginning) as proposed by Andrey Zubarev, resolves #38351 git-svn-id: branches/fixes_3_2@49111 -
34 lines
650 B
ObjectPascal
34 lines
650 B
ObjectPascal
{$MODE OBJFPC}
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses Classes, BufStream, Sysutils;
|
|
|
|
procedure TestBufferedFileStream;
|
|
var
|
|
F: TStream;
|
|
pf: File;
|
|
begin
|
|
Assign(pf,'tw38351.tmp');
|
|
Rewrite(pf,1);
|
|
Seek(pf,100);
|
|
Close(pf);
|
|
F := TBufferedFileStream.Create('tw38351.tmp', fmOpenRead);
|
|
try
|
|
Writeln(F.Position);
|
|
if F.Position<>0 then
|
|
halt(1);
|
|
Writeln(F.Seek(0, soBeginning)); // TFileStream = 0, TBufferedFileStream = -1
|
|
Writeln(F.Position);
|
|
if F.Position<>0 then
|
|
halt(1);
|
|
finally
|
|
F.Free;
|
|
DeleteFile('tw38351.tmp');
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
TestBufferedFileStream;
|
|
writeln('ok');
|
|
end.
|