Записная книжка на Delphi 7 — страница 10

  • Просмотров 9370
  • Скачиваний 669
  • Размер файла 147
    Кб

TBaseForm.SaveGrid; // имя процедуры var f: textfile; x, y: integer; begin assignfile(f, 'Base.zap');// открыть файл ‘Base’ rewrite(f); // переписать файл writeln(f, StringGrid1.colcount); //просмотр значения столбцов writeln(f, StringGrid1.rowcount);// просмотр значения строк for X := 0 to StringGrid1.colcount - 1 do // начало цикла записи значения каждой ячейки for y := 0 to StringGrid1.rowcount - 1 do writeln(F, StringGrid1.cells[x, y]); closefile(f);//закрыть файл end; А для загрузки: аналогичным способом объявим процедуру загрузки: ‘Procedure LoadGrid’, а процедура

загрузки имеет следующий код: procedure TBaseForm.LoadGrid; var f: textfile; temp, x, y: integer; tempstr: string; begin assignfile(f, 'Base.zap'); // открыть файл ‘Base’ reset(f); // Сбить файл readln(f, temp); //Прочитать файл 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 // открытия окна выбора файла if opendialog1.FileName = '' then writeln ('Вы не выбрали файл!!!') else begin // или mediaplayer1.FileName:=opendialog1.FileName; // занести путь к файлу