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

StringGrid1.colcount := temp; // выставить количество столбцов

readln(f, temp); // прочитать файл

StringGrid1.rowcount := temp; //выставить количество строк

for X := 0 to StringGrid1.colcount - 1 do // начало цикла заполнения каждой ячейки

for y := 0 to StringGrid1.rowcount - 1 do

begin

readln(F, tempstr);

StringGrid1.cells[x, y] := tempstr;

end;

closefile(f); // закрыть файл

end;

- 15 -

Для загрузки нужно в свойство OnCreate формы вставить следующий оператор: ‘LoadGrid;’

Для сохранения нужно в свойство OnClose формы вставить следующий оператор: ‘SaveGrid;’.

Напишем названия колонок, для этого в свойство OnCreate формы вставим следующий код:

with stringgrid1 do begin

Cells[0,0]:=' № '; //названия колонки с координатами

Cells[1,0]:='Фамилия'; //названия колонки с координатами

Cells[2,0]:='Имя'; //названия колонки с координатами

Cells[3,0]:='Отчество'; //названия колонки с координатами

Cells[4,0]:='Адрес'; //названия колонки с координатами

Cells[5,0]:='Телефон'; //названия колонки с координатами

Всё на этом создание программы «Справочник друзей» закончен. Теперь можно скомпилировать и запустить программу. Если всё правильно, то можно сохранить эту программу.

«Media Player»

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

“Media Player” – программа, которая должна воспроизводить музыкальные композиции и видео-файлы. В Delphi есть универсальный компонент MediaPlayer, который выполняет нужные нам функции. Так же на форме будет 2 кнопки для открытия файла и для выхода из программы.

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

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

Переносим компонент MediaPlayer с закладки System на форму. Переносим 2 кнопки BitBtn с закладки Additional и компонент OpenDialog с закладки Dialogs.

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

Одну кнопку называем: «Открыть файл», а вторую:«Закрыть».

Настраиваем Filter компонента OpenDialog1: Filter Name: ‘Видео-файлы и музыка’, Filter: ‘*.avi;*.mp3;*.wav’.

В кнопку «Открыть файл» вставляем следующий код:

if opendialog1.Execute then // открытия окна выбора файла