Скачать: CL | DM;

чтение открытого текстового файла.   Найти похожие ветки 

← →
Sego   (2002-10-24 19:58) [0]

Уважаемые Мастера!
Как корректно открыть для чтения уже открытый текстовый файл , и считать с него данные (желательно построчно).
И еще, как определить в этом файле текущую позицию, чтоб при повторном открытии вернуться на нее? Заранее благодарен.

---

← →
Anatoly Podgoretsky ©   (2002-10-24 20:13) [1]

Например с помощью TFileStream, читать побайтно

---

← →
sego   (2002-10-24 20:25) [2]

2 Anatoly Podgoretsky
Спасибо за подсказку.
var
FileStream: TFileStream;
Reader : TReader;
begin

FileStream := TFileStream.Create ("c:\delphi.txt",fmOpenRead);
Reader := TReader.Create (FileStream, $ff);
Reader.ReadListBegin;
Memo1.Lines.Clear;
while not Reader.EndOfList do Memo1.Lines.Add(Reader.ReadString);
Reader.ReadListEnd;
Reader.Destroy;
FileStream.Destroy;

Вот примерно текст, но приложение все равно вешается :(.

---

← →
Anatoly Podgoretsky ©   (2002-10-24 20:50) [3]

sego (24.10.02 20:25)
Вот здесь TFileStream.Create ("c:\delphi.txt",fmOpenRead); не помешает применить fmShateXXX константы
Это Destroy заменить на Free
Добавить обработку ошибок например через try finally end

---

← →
sego_g   (2002-10-24 21:05) [4]

2 Anatoly Podgoretsky © (24.10.02 20:50)
Впринципе программа не висла, просто комп загружен как выдавала, так и выдает после подсказаных тобой изменений ту же ошибку-ошибку открытия, мол не может открыть, исключения я не ставил...
А файл даже если он ничем не открыт, все равно туже ошибку выдает, где я ошибся?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c