settxtbf.pas

 {Settxtbf.PAS}
 
 { Пример программы для процедуры SetTextBuf }
 
 Var F : Text;
    Ch : Char;
   Buf : Array [1..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.