t_id
1497
t_cpu
i386
t_adddate
2005/02/22
t_result
0
t_knownrunerror
0
t_opts
-O2
Record count: 50
Total = 50
OK=6 Percentage= 12.00
Skipped=44 Percentage= 88.00
{ %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.