y"> c: FEI alpha.txt ), (f), (f, s) [s = _abc ] (f, a), [a = 209] (f, b, c); [b = 2 c = 3] (f, x); [помилка a5 перевести не можна]
End;
Робота з текстовими файлами.
). _Прімер Висновок текстового файлу на екран:
Procedure TForm1.Button1.Click (...);: TextFile;: string; (f, c: alpha.txt );
Reset (f); not Eof (f) do begin (f, s);. Lines.Add (s);;
End;
Якщо у конвертованій рядку був порушений необхідний формат - виникне помилка вводу/виводу. p align="justify"> Процедура Write і WriteLn забезпечує виведення інформації в текстовий файл. Список виведення аналогічний процедурі Read, за винятком числових значень, для яких існує спеціальний формат: елемент [: m [: n]];
m - мінімальна ширина поля, в яке буде поміщено елемент;
n - максимальна кількість знаків після (,).
Процедура WriteLn аналогічна процедурі Write, але в кінці додається ознака кінця рядка.
). _Прімер Злиття двох текстових файлів у третій:
Procedure TForm1.Button1.Click (...);, f2, f3: TextFile;: string, (f1, c: Fei alpha1.txt ); (f2, c: Fei alpha2.txt ); (f3 , c: Fei alpha3.txt ); (f1); (f2); (f3); not Eof ( f1) do begin (f1, s); (f3, s);; not Eof (f2) do begin (f2, s); (f3, s);; (f1); (f2); (f3); ( OK! );;
Обробка помилок при роботі з файлами
При звернення до файлів (тобто до диску) можуть виникати помилки, що призводять до ненормального завершення роботи програми. Ці помилки необхідно передбачити і відповідним чином обробити. В основному помилки виникають при відкритті файлу, рідше при читанні і запису з них. Що б обробляти помилки введення/виводу (помилки при роботі з файлами) необхідно використовувати відповідну директиву компілятора (спеціальним чином оформлені вказівки компілятору всередині коду програми). Директиву укладають в {}, всередині ставиться позначення відповідної директиви, + чи -:
{<позначення>, <+ або ->}:
відключити контроль помилок введення/виводу: {I-};
включити контроль помилок введення/виводу: {I +}.
Якщо робиться спроба читання неіснуючого файлу або логічного пристрою, то виникає помилка часу виконання (from time error). Тип помилки можна визначити за допомогою використання вбудованої функції - IOResult: word; (ця функція повертає результат останньої операції введення/виводу; якщо операція пройшла успішно, функція повертає (0), інакше повертає код помилки введення/виводу). p align="justify"> Для використання цієї функції необхідно відключити контроль помилок введення/виведення. <В
TForm1.Button1.Click (...);: TextFile;: string; (f, Edit1.Text);
{I-} (f); IOResult <> 0 then begin ( невірне ім'я файлу );; ;
{I +} not Eof (f) do begin (f, s);. Lines.Add (s);;
End;
У Delphi існують об'єкти для роботи з файлами. Зокрема об'єкти TOpenDialog і TSaveDialog. Ці об'єкти дозволяють відкривати і використовувати стандартні діалогові вікна відкриття і збереження файла. p align="justify"> Виклик діалогового вікна здійснюється за допомогою методу ExeCute: Boolean; (який повертає true якщо вікно відкривалося успішно і false у протилежному випадку).
3). _Прімер Відкриття файлу:
... OpenDialog1.Execute then begin (f, OpenDialog.FileName);
... (f),;
). _Прімер Процедура підраховує кількість рядків і символів в текстовому файлі:
Procedure TForm1.Button1.Click (...);: TextFile;: string;, k: int64; (f, 'alpha.txt'); (f);: = 0;: = 0 ; not Eof (f) do begin (f, s); (i);: = k + length (s);;. Lines.Add ( alpha.txt містить < span align = "justify"> + IntToStr (k) + символів + і + IntToStr (i) +
