![]() |
#2 |
Участник
|
Сталкивался с такой проблемой. Используйте потоки, там такой проблемы нет. Примерно так:
Код: myFile.OPEN(inFileName); myFile.CREATEINSTREAM(inFileStream); WHILE NOT inFileStream.EOS DO BEGIN myBytesRead := inFileStream.READTEXT(TextBuffer, 900); IF myBytesRead > 0 THEN BEGIN Обрабатываем TextBuffer END; END; myFile.CLOSE; inFileStream - InStream. |
|