Реферат: Записная книжка на Delphi 7

Меню: «Экстра» оставляем незаполненным, т.к. нужно создать нужные программы.

Создание часов на главной форме

Для показа времени в Delphi есть ещё одна процедура FormatDateTime, но это процедура показывает время в данный момент когда она была вызвана, для того что каждую секунду обновлялось время, а то есть показывала время, нужно использовать компонент Timer, который находиться на закладке System, палитры компонентов Delphi.

Переносим Timer на форму и в его процедуре OnTimer нужно вставить следующий код:

Label1.Caption:=FormatDateTime('Сейчас: '+' hh:mm:ss AM/PM', Now()); {Изменяем надпись на Label1 на: “Сейчас: ‘Часы’:‘Минуты’:‘Секунды’ ‘AM’ или ‘PM’ ”}

Сохранение настроек программы

Так как нам нужно чтобы сохранялись некоторые параметры программы, то для этого буду использовать ini файл. Для сохранения нужно в процедуре OnClose главной формы вставить следующий код:

uses inifiles;

…

var

IniFile: TIniFile;

begin

IniFile := TIniFile.Create('Notebook.ini'); // создание ini файла, если его не существует

IniFile.WriteString('MainOptions', 'Base',s);// записать значение переменной S

{Сохранить имя шрифта, компонента Memo1}

IniFile.WriteString('MainOptions', 'Name font',memo1.Font.Name);

{Сохранить размер шрифта, компонента Memo1}

IniFile.WriteInteger('MainOptions', 'Size', memo1.Font.Size);

{Сохранить цвет шрифта, компонента Memo1}

IniFile.WriteInteger('MainOptions', 'Color',memo1.Font.Color);

inifile.Free; // освободить память

- 12 -

Для того чтобы пользователь не забыл сохранить изменения, в OnClose формы, после inifile.free, вставим код, который будет выводить окно с запросом о сохранение изменений:

{вывести сообщение о подтверждении сохранение изменений в файле: «Да» или «Нет»}

case messagedlg('Сохранить изменение ?',mtconfirmation,[mbyes,mbno],0)of

mryes: memo1.Lines.SaveToFile(s); // если «Да» ,то сохранить с именем S

end;

Загрузка настроек программы

Для того чтобы загрузить нам сохранения, нужно в процедуре формы OnCreate вставить следующий код:

var IniFile: TIniFile;

begin

IniFile := TIniFile.Create('Notebook.ini');// читаем или создаём файл ini

s:=IniFile.ReadString('MainOptions', 'Base', '');//заносим в переменную S значение