Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Внизчтение открытого текстового файла. Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c