Правила форума
Settxtbf.PASЯзык:
Русский
English
{ Пример программы для процедуры SetTextBuf }
var
F : Text;
Ch : Char;
Buf : array[0 .. 4095] of Char; { 4Kб буфер }
begin
{ Получаем имя файла для чтения из командной строки }
Assign(F, ParamStr(1));
{ Большой буфер для ускорения чтения }
SetTextBuf(F, Buf);
Reset(F);
{ Выводим содержимое файла на экран }
while not EOF(F) do
begin
Read(F, Ch);
Write(Ch);
end;
end.
F : Text;
Ch : Char;
Buf : array[0 .. 4095] of Char; { 4Kб буфер }
begin
{ Получаем имя файла для чтения из командной строки }
Assign(F, ParamStr(1));
{ Большой буфер для ускорения чтения }
SetTextBuf(F, Buf);
Reset(F);
{ Выводим содержимое файла на экран }
while not EOF(F) do
begin
Read(F, Ch);
Write(Ch);
end;
end.
::
::
::
