IPB

> Settxtbf.PAS
Чат
Форум
Загрузка...
 

Language:
Русский
English

   {Settxtbf.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the SetTextBuf procedure.}

  var
    F: Text;
    Ch: Char;
    Buf: array[1..4095] of Char;  { 4K buffer }
  begin
    { Get file to read from command line }
    Assign(F, ParamStr(1));
    { Bigger buffer for faster reads }
    SetTextBuf(F, Buf);
    Reset(F);
    { Dump text file onto screen }
    while not Eof(f) do
    begin
      Read(F, Ch);
      Write(Ch);
    end;
  end.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"