blob: 438738c7199d165365a05838d74305469a2d0c55 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
{ %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.
|
