Из текстового файла вывести количество содержащихся символов и строк
function calc(filename:string ):integer;
var f:file of byte;
b:byte; begin
calc:=0;
assignfile(f,filename);
reset(f);
while not eof(f) do begin
blockread(f,b,1);
if (b>=32) and (b<=255) then inc(result);
end;
close(f); end; |