mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 22:07:56 +02:00
31 lines
491 B
ObjectPascal
31 lines
491 B
ObjectPascal
{ %cpu=i386 }
|
|
{ %opt=-O2 }
|
|
|
|
{$mode delphi}
|
|
|
|
uses classes;
|
|
|
|
function Read(Str: TStream): string;
|
|
begin
|
|
SetLength(Result, Str.Size - Str.Position);
|
|
writeln(str.size,' - ',str.Position);
|
|
Writeln(Length(Result));
|
|
end;
|
|
|
|
var
|
|
stream: TMemoryStream;
|
|
buf: PChar;
|
|
x: char;
|
|
i: Integer;
|
|
s : string;
|
|
begin
|
|
stream := TMemoryStream.Create;
|
|
x := 'A';
|
|
buf := @x;
|
|
for i := 0 to 26000 do begin
|
|
stream.Write(buf, sizeof(buf^));
|
|
end;
|
|
stream.Position := 0;
|
|
s:=Read(stream);
|
|
end.
|