Удаление файловФункция DeleteFile if not DeleteFile('c:\3.com') then ShowMessage('Ошибка удаления'); Работа с текстовыми файлами. Чтение из текстового файла На прошлых уроках мы рассматривали пример простейшего текстового редактора. В нем, в компоненте Memo процесс загрузки и записи текстового файла делался следующим образом: Memo1.Lines.LoadFromFile(Имя_файла); // загрузка Memo1.Lines.SaveToFile(Имя_файла); // сохранение Все это благодаря свойству Lines, в котором хранятся строки. Но на практике иногда необходимо прочитать только определенную строку или совершить операцию добавления строки в уже существующий файл. Следующий пример обработки текстового файла очень похож на аналогичную на языке Pascal. Знающие люди могут ощутить разницу, поскольку есть некоторые отличия. procedure TForm1.Button1Click(Sender: TObject); Var f:TextFile; // объявление файловой переменной st: String; // строковая переменная Begin AssignFile(f,'c:\1.txt'); // привязка названия файла к файловой переменной {$I-} // отключение контроля ошибок ввода-вывода Reset(f); // открытие файла для чтения {$I+} // включение контроля ошибок ввода-вывода if IOResult<>0 then // если есть ошибка открытия, то Begin ShowMessage('Ошибка открытия файла C:\1.TXT'); Exit; // выход из процедуры при ошибке открытия файла end; While not EOF(f) do // пока не конец файла делать цикл: Begin ReadLn(f,st); // читать из файла строку ShowMessage(st); // выводить строку пользователю end; CloseFile(f); // закрыть файл end; Прокомментирую некоторые строки этого примера. Команда AssignFile осуществляет привязку строки пути файла к файловой переменной. Все дальнейшие операции с файловой переменной автоматически осуществляются с указанным файлом. Для избежания путаниц, указывайте полный путь к файлу. {$I-} и {$I+} являются директивами компилятору, что в этом месту соответственно следует отключить и включить контроль ошибок ввода-вывода. В данном случае при неудачной попытке открытия файла c:\1.txt (файл отсутствует или открыт для записи другой программой) наша программа не выдаст аварийной ошибки и продолжит выполнение данной процедуры. Это свойство полезно для обработки всех возможных случаев в работе программы. IOResult – переменная, которая хранит в себе код ошибки последней операции ввода-вывода. Если она равна нулю, то последняя операция была успешно выполнена. EOF(Файл) – функция, возвращающая признак конца файла. Т.е. она показывает, достигнут или нет конец открытого файла. ReadLn(Файл,Переменная) – процедура считывания переменной из файла. В отличие от команды Read производит считывание строки с завершающимся символом перевода строки под кодами 13 и 10 (клавиша Enter). CloseFile(Файл) – процедура закрытия ранее открытого файла.
|
