Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

чтение открытого текстового файла. [D5, Win95/98]

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

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

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

sego (2002-10-24 20:25:00) [3]
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:13:00) [4]
Например с помощью TFileStream, читать побайтно

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »