blob: 58499305d8f03b04f0fdb0911ab7e84843851d03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ Old file: tbs0111.pp }
{ blockread(typedfile,...) is not allowed in TP7 }
var
ft : text;
f : file of word;
i : word;
buf : string;
begin
assign(ft,'tbs0111.tmp');
rewrite(ft);
for i:=1 to 40 do
Writeln(ft,'Dummy text to test bug 111');
close(ft);
assign(f,'tbs0111.tmp');
reset(f);
blockread(f,buf[1],127,i); { This is not allowed in BP7 }
buf[0]:=chr(i*2);
close(f);
writeln(i);
writeln(buf);
erase(f);
end.
|
