Добавил:
Mendeleev
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Полищук, Семериков. Системное программирование в UNIX средствами Free Pascal / examples / 9 / read_demo
.pas (* рТПЗТБННБ 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.
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