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

← →
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)
Впринципе программа не висла, просто комп загружен как выдавала, так и выдает после подсказаных тобой изменений ту же ошибку-ошибку открытия, мол не может открыть, исключения я не ставил...
А файл даже если он ничем не открыт, все равно туже ошибку выдает, где я ошибся?

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