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 -