Проект  1 - розминка

 

Проект 2 

Приклад читання тексту з файлу з використанням repeat - until.

 

Розмістити на диску d файл по учнів: uchni.txt.

Прочитати з текстового файлу uchni.txt, що розташований на диску d:\, рядки тексту і вивести їх на екран у ListBox.

 

Для програми потрібно буде розташувати на формі об'єкти Button1, OpenDialog1, ListBox1. Також знадобляться змінні: 2 рядкових, 1 текстова.

Форма матиме вигляд, наприклад

 

 

Далі, опишемо головну подію для об'єкту Button1.

 

procedure TForm1.Button1Click(Sender: TObject);

begin

 

end;

 

Опишемо змінні:

 

Далі, для того, щоб встановити ім'я файлу, треба отримати його з OpenDialog1 таким чином:

 

 

Наступним кроком є підготовка файлу до читання.

 

Тепер потрібно зчитувати з файлу по рядкам інформацію (наприклад у змінну s) і додавати ці рядки до ListBox1, причому робити це поки не досягнемо кінця файлу. Для цього нам доведеться організувати цикл (наприклад repeat - until). Текст процедури матиме вигляд:

 

 

Але тепер, якщо при роботі програми двічі натиснути клавішу Button1 і вибрати файл, то зміст ListBox1 буде складатись з двох файлів, що були відкриті. Щоб запобігти цьому нам потрібно додати оператор очистки вікна ListBox1 - ListBox1.Items.Clear;. Тоді текст процедури матиме вигляд:

 

 

І нарешті, після роботи з файлом, його потрібно закрити. Це робиться за допомогою оператора closefile.

 

 

 

Проект 3 виконати  у Делфі:

Вводимо прізвище учня, дату  та оцінки учня з деяких предметів. Утворити файл з назвою прізвищедата, вмістом якого є оцінки учня.

Приклад реалізації на Паскалі:

Задача про файли оцінок учнів

 

З клавіатури задавати дату, прізвище учня, його оцінки з різних предметів. На основі цих даних сформувати текстовий файл, який матиме назву прізвища учня та дати. Вмістом файлу будуть оцінки цього учня з предметів.

Програма

 

Виконання

 

Файл, утворений на диску D