25 lines
451 B
ObjectPascal
25 lines
451 B
ObjectPascal
program readtest;
|
|
var filename:string;
|
|
buf:char;
|
|
f:file;
|
|
count:integer;
|
|
t:DateTime;
|
|
begin
|
|
write('Enter filename: ');
|
|
readln(filename);
|
|
|
|
t := GetTime;
|
|
writeln('start:', TimeStr(t, true));
|
|
open(f, filename, ModeReadOnly);
|
|
|
|
count := 0;
|
|
while not eof(f) do
|
|
begin
|
|
read(f,buf);
|
|
count := count + 1;
|
|
end;
|
|
close(f);
|
|
t := GetTime;
|
|
writeln('end:', TimeStr(t, true));
|
|
writeln(count, ' bytes read.');
|
|
end.
|