Скачиваний:
18
Добавлен:
08.01.2014
Размер:
759 б
Скачать
(* рТПЗТБННБ count РПДУЮЙФЩЧБЕФ ЮЙУМП УЙНЧПМПЧ Ч ЖБКМЕ *)

uses linux;

const
BUFSIZE=512;

var
filedes:integer;
nread:longint;
buffer:array [0..BUFSIZE-1] of byte;
total:longint;
begin
total := 0;

(* пФЛТЩФШ ЖБКМ 'anotherfile' ФПМШЛП ДМС ЮФЕОЙС *)
filedes := fdopen ('anotherfile', Open_RDONLY);
if filedes=-1 then
begin
writeln('пЫЙВЛБ РТЙ ПФЛТЩФЙЙ ЖБКМБ anotherfile');
halt(1);
end;

(* рПЧФПТСФШ ДП ЛПОГБ ЖБКМБ, РПЛБ nread ОЕ ВХДЕФ ТБЧОП 0 *)
nread := fdread (filedes, buffer, BUFSIZE);
while nread > 0 do
begin
inc(total,nread); (* ХЧЕМЙЮЙФШ total ОБ nread *)
nread := fdread (filedes, buffer, BUFSIZE);
end;

writeln('юЙУМП УЙНЧПМПЧ Ч ЖБКМЕ anotherfile: ', total);
fdclose(filedes);
halt(0);
end.
Соседние файлы в папке 2