Версия для печати

Из текстового файла вывести количество содержащихся символов и строк

Оцените материал
(0 голосов)

Из текстового файла вывести количество содержащихся символов и строк

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;
Прочитано 6639 раз