Скачиваний:
17
Добавлен:
08.01.2014
Размер:
353 б
Скачать
(* рТПЗТБННБ read_demo - ЧЩЪПЧ fdread ДМС ФЕТНЙОБМБ *)
uses linux;
const
SMALLSZ=10;

var
nread:longint;
smallbuf:array [0..SMALLSZ] of char;
begin
nread := fdread (0, smallbuf, SMALLSZ);
while nread > 0 do
begin
smallbuf[nread] := #0;
writeln('nread: ',nread,' ', smallbuf);
nread := fdread (0, smallbuf, SMALLSZ);
end;
end.

Соседние файлы в папке 9