blob: 5a1c6bb9c8823b4b778794e126da090d8a1e012e (
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
31
32
33
34
|
{ Old file: tbs0145.pp }
{ typed files with huges records (needs filerec.size:longint) OK 0.99.7 (PFV) }
{$I+}
const
Mb=512;
siz=1024*Mb;
type
buf=array[1..siz] of byte;
var
fin,
fout : file of buf;
b1,a1 : buf;
begin
fillchar(a1,sizeof(a1),1);
assign(fout,'tmp.tmp');
rewrite(fout);
write(fout,a1);
close(fout);
assign(fin,'tmp.tmp');
reset(fin);
read(fin,b1);
close(fin);
erase(fin);
if not b1[512*Mb]=1 then
begin
writeln('data err');
Halt(1);
end;
end.
|
