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

memo1.Font.Name:=IniFile.ReadString('MainOptions', 'Name font','');

{выставляем размер шрифта для Memo1}

memo1.Font.Size:=IniFile.ReadInteger('MainOptions', 'Size',0);

{выставляем цвет шрифта для Memo1}

memo1.Font.Color:=IniFile.ReadInteger('MainOptions', 'Color', 0);

inifile.Free;

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

memo1.Lines.LoadFromFile(s);//загрузить файл с именем S

Так как, если нужно будет изменить шрифт текста то при запуске окна настройки шрифта там будет все настройки по умолчанию и пройдется менять все параметры, а чтоб этого не делать нужно присвоить значения от Memo1 к FontDialog. Вставим следующий код, после Memo1.Lines.LoadFromFile(s):

FontDialog1.Font:=Memo1.Font;{присвоить все параметры которые находятся в свойстве Font}

На этом создание главной формы закончено. Можно скомпилировать и запустить проект, и если всё сделано правильно, то ошибок не каких быть не должно.

- 13 -

Описание вспомогательных программ, использованных в программе «Записная книжка»

«Справочник друзей»

Постановка задачи

Так как в программе «Справочник друзей» нужно будет записывать телефон, адрес, фамилию и имя человека то нужен компонент который мог бы это разрешить. Можно использовать базу данных для этих целей, но Delphi имеет компонент StringGrid. Для StringGrid’а ненужно дополнительных компонентов, а для работы с базами данных нужно несколько компонентов, которые лишь увеличивают размер программы. На форме будет 3 кнопки: «Добавить» (добавить строку), «Удалить » (удалить выделиную строку), «Выйти» (сохранить и закрыть программу).

Создание интерфейса

В свойстве Caption формы введём текст: ‘Справочник друзей’, а в свойстве формы Name введём имя формы: ‘Dryzi’. В свойстве формы AutoSize нужно выставить True, для то чтобы форма изменяла размер вместе с компонентами.

Перенесём с закладки Additional компонент StringGrid на форму. Выставляем следующие свойства этого компонента:

1.ColCount = 6 (количество столбцов)

2.FixedCols = 0 (зафиксировать(нельзя изменять) первый столбец)

3.FixedRows = 1 (зафиксировать(нельзя изменять) первую строку)

4.RowCount = 2 (количество строк)

5.SrollBars = ssVertical (ползунок вертикального типа)

Перенесём на форму 3 кнопки BitBtn. Эти кнопки даёт возможно прикепить к ним пиктограмму. Назовем кнопки: 1. «Добавить»

2. «Удалить»

3. «Выйти»

Поместим эти 3 кнопки сверху StringGrid1.

Описание процедур и функций

Начнём с кнопок. В кнопку «Добавить» вставляем следующий код:

StringGrid1.RowCount:= StringGrid1.RowCount+1;(добавить строку)

В кнопку «Удалить» вставляем код:

var

i,j: Integer;

begin

j:=StringGrid1.Row; // строка с выделением