процедура settextbuf в TMT pascal, TMT игнорирует settextbuf Опции

[pshenan]

TMT игнорирует settextbuf()
TMT 3.9 DOS
Подскажите, можно ли решит проблему.
В Борланде все работает нормально.

Запускаю с дискеты в чистом досе без SmartDrv.exe
Работает очень медленно, изменение буфера никаких результатов не дает.
tmp.txt - Любой текстовый файл, объемом > несклько килобайт.

Var F : Text;
   Ch : Char;
  Buf : Array [1..32000] Of Char;  {буфер}

  F2:text;
  Buf2 : Array [1..32000] Of Char;  {буфер2}

Begin
 
 Assign(F, 'tmp.txt');
 Assign(F2, 'tmp2.txt');

 SetTextBuf(F, Buf,sizeOf(Buf));
 SetTextBuf(F2, Buf2,sizeOf(Buf2));

 Reset(F);
 Rewrite(F2);
 
 While Not EOF(F) Do
  Begin
   Read(F, Ch);
   Write(F2,Ch);
   Write(Ch);
  End;

Close(f);
Close(f2);

 End.

Сообщение отредактировано: pshenan - 27.11.2009 15:04

[andriano]

Честно говоря, я ОЧЕНЬ редко ищу какие-либо модули. Обычно написать смому - гораздо быстрее, да и результат получается намного лучше (в первую очередь по скорости работы).
Возможно, и сам компилятор ТМТ (для которого очень трудно найти "заточенные" под его модули) способствует именно такому стилю работы.

Кстати, читать текстовый файл как бинарный целиком, - наверное, единственный способ разбора многомегабайтных текстовых файлов (например, XML, текстовые форматы представления векторных файлов (*.OBJ, *.MP, *.X)) за вменяемое время.