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.
А в чем проблема? В том, что не работает одна из системных функций или в том, что медленно работает программа?
Дело в том, что SetTextBuf позволяет несколько улучшить работу неправильно написанной программы, но тем самым и приучает писать неправильно. Буферизация ввода/вывода (если она нужна, а из приведенного примера это не очевидно) делается несколько другим способом.
Предварительное замечание: у меня сейчас нет компилятора, поэтому возможны мелкие ошибки.
В зависимости от того, что нужно сделать, и от размеров файлов можно идти разными путями.
Один из них - считать файл целиком в память и там с ним работать.
Если файл может превышать размеры буфера, то читать файл по частям длиной с буфер.
Var
F, F2 : file;
Ch : Char;
Buf, Buf2 : Array [1..32000] Of Char; {буфер}
L, i : word;
Begin
Assign(F, 'tmp.txt');
Assign(F2, 'tmp2.txt');
Reset(F,1);
Rewrite(F2,1);
While Not EOF(F) Do Begin
blockread(f, buf, 32000, L);
for i := 1 to L do begin
buf2[i] := buf[i];
Write(buf[i]);
end;
blockwrite(f2, buf2, L);
End;
Close(f2);
Close(f);
End.
Честно говоря, я ОЧЕНЬ редко ищу какие-либо модули. Обычно написать смому - гораздо быстрее, да и результат получается намного лучше (в первую очередь по скорости работы).
Возможно, и сам компилятор ТМТ (для которого очень трудно найти "заточенные" под его модули) способствует именно такому стилю работы.
Кстати, читать текстовый файл как бинарный целиком, - наверное, единственный способ разбора многомегабайтных текстовых файлов (например, XML, текстовые форматы представления векторных файлов (*.OBJ, *.MP, *.X)) за вменяемое время.
Можно как-нибудь настроить TMT Pascal, чтобы он нормально воспринимал русские буквы. А то он работает, как я понимаю, с Win-кодировкой, и при выполнении простейшей программы:
programm Probe;
begin
WriteLnПривет всем;
end.
на экран выводится что-то типа: "ЁштхЄ тёхь"
Вообще говоря, кодировка - это проблема Windows, к языку Pascal не имеющая никакого отношения.
Что касается настройки среды разработки для изготовления консольных прог, то к предыдущему посту могу добавить еще один совет:
Найти в И-нете и установить клавиатурный драйвер кодовой страницы 866. При этом сами раскладки будут переключаться в порядке EN-RU1251-RU866-EN...