mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
33 lines
610 B
ObjectPascal
33 lines
610 B
ObjectPascal
{ %norun }
|
|
{ Test seeking in TIOStream.
|
|
|
|
!!! Input to standard in must begin with:
|
|
abcdefghijklmnopqrstuvwxyz1*
|
|
where * represents optional additional characters (can be anything).
|
|
|
|
!!! It is recommended that this be tested interactively from the keyboard too. Run the
|
|
test program, type the test string, and press Enter.
|
|
|
|
See ExerciseStream.pas for exit codes.
|
|
}
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
program tiostreamseek;
|
|
|
|
uses
|
|
iostream,
|
|
uw19851;
|
|
|
|
var
|
|
AIOStream: TIOStream;
|
|
|
|
begin
|
|
AIOStream := TIOStream.Create(iosInput);
|
|
try
|
|
ExitCode := Test(AIOStream);
|
|
finally
|
|
AIOStream.Free;
|
|
end;
|
|
end.
|