Сдайте работу преподавателю

Вопросы для контроля и самоконтроля:

1. Что означает свойство Enabled компонента Timer?

2. На какое событие пишут процедуру при работе с компонентом Timer?

3. Как добавить справку в формате html для приложения?

4. Как организовать движение компонентов на форме?

Задание №4. Написание программ для выполнения операций с файлами

Цель занятия: Научиться работать с файлами средствами языка программирования С++

Студенты должны
знать: операции над файлами

уметь: выполнять различные операции над файлами

Задание.

1. Выберите в меню Пуск – Программы - CodeGear RAD Studio 2009 - C++Builder 2009

2. Создание новое приложение (File – New – VCL Forms Application).

3. Создайте приложение Погода, которое добавляет в текстовый файл информацию о температуре воздуха. Каждая строка файла содержит дату и значение температуры. Если файла нет, то программа создаёт его в текущем каталоге. Кнопка ОК доступна только тогда, когда поле Температура содержит данные.

a. Проектирование пользовательского интерфейса: добавьте следующие компоненты: MonthCalendar1, метку Label1, окно ввода Edit1 и кнопку Button1 Добавить.

b. Программирование приложения:

а). Добавьтепрограммный код в конструктор программы:

Int f;

//---------------------------------------------------------------------------

__fastcall TForm1:: TForm1(TComponent* Owner)

: TForm(Owner)

{

MonthCalendar1-> ShowTodayCircle=false;

MonthCalendar1-> Date=Now();

Button1-> Enabled=false; }
//---------------------------------------------------------------------------

б). Самостоятельно напишите программу для изменения содержимого в поле редактирования значения температуры: если длина строки = 0 (Edit1-> Text.Length()==0) или длина строки = 1 и первый символ строки является символом «минус» ((Edit1-> Text.Length() ==1) & & (Edit1-> Text[1]=='-')), то кнопка неактивна, иначе кнопка активна.

в). Добавьте программу при нажатии на кнопку Добавить

void __fastcall TForm1:: Button1Click(TObject *Sender)

{

AnsiString st; // переменная для записи в файл

st=MonthCalendar1-> Date.DateString()+" " +Edit1-> Text+" \r\n";

if (FileExists(" meteo.txt"))

f=FileOpen(" meteo.txt", fmOpenWrite);

Else

f=FileCreate(" meteo.txt");

// если файл существует то открыть для записи или создать файл

if (f! = -1)

{