4. Добавьте проект следующими возможностями:

• На событие нажатия кнопки Добавить заметку дописать отображение текста 'открытие файла zametka.txt для записи' в статусной строке StatusBar1;

• На событие изменения Calendar1 добавьте отображение в статусной строке текста 'просмотр текущей заметки на выбранную дату';

• Добавление меню, состоящее из команд: File (Open (для просмотра типизированного файла), Exit (для завершения приложения)); Perexod (PredMonth, NextMonth, PredYear, NextYear) - свяжите с написанной процедурой нажатия на соответствующую кнопку; Edit (Add (для добавления заметки), Veiw (для просмотра текущей заметки)); About (About (открытие формы AboutBox1, содержащей справочную информацию)).

ВОПРОСЫ:

1. Свойства и методы компонента класса TCalendar

2. Использование текстового файла при написания программы.

Завершите работу с программой. Сдайте работу преподавателю.

26. Работа с компонентом StringGrid для создания электронных таблиц

Цель занятия: Изучение свойств и методов компонента StringGrid.

StringGrid – предназначен для создания таблиц, в ячейках которых располагаются произвольные текстовые строки. Основные свойства:

свойство	описание
Cells[i,j]	Определяет содержимое ячейки с координатами [i,j], где i – номер колонки, а j – номер строки.
ColCount	Содержит количество столбцов таблицы
RowCount	Содержит количество строк таблицы

ЗАДАЧА 1. Вывести данные текстового файла на форму с помощью компонента StringGrid.

Для этого необходимо:

-создадим текстовый файл в file2.txt в Блокнот, в котором слова отделяются

друг от друга запятыми;

-поместим на форму компонент OpenDialog1, компонент StringGrid1 и кноп-

ку, при нажатия на которую происходит открытие диалогового окна и вы-

вод данных в компонент StringGrid;

-опишем в общей области переменные:

var

Form1: TForm1;

f:textfile;

s,s1:string;

n,i,k,t:integer;

-напишем программу, отвечающую за открытие диалогового окна Открыть

файл и вывода данных из выбранного файла в StringGrid.

procedure TForm1.Button1Click(Sender: TObject);

begin n:=0;

If opendialog1.Execute then

begin

assignfile(f,opendialog1.filename);

reset(f); StringGrid1.ColCount:=0;

StringGrid1.RowCount:=0

while not seekeof(f) do begin

n:=n+1;

readln(f,s);

t:=1; k:=0;

StringGrid1.RowCount:=n+1;

for i:=1 to length(s) do

if s[i]=',' then begin

s1 := Copy(s,t,i-t);

t:=i+1; k:=k+1;

if n=1 then begin

StringGrid1.ColCount:=k+1;

end;

StringGrid1.Cells[k-1,n-1] := s1;

end; end; end; end;

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

-дописать строчки

StringGrid1.Cells[k,0] := inttostr(k); после строчки StringGrid1.ColCount:=k+1;

StringGrid1.Cells[0,n] := inttostr(n); после строчки StringGrid1.RowCount:=n+1;

-в строчке StringGrid1.Cells[k-1,n-1] := s1; вместо Cells[k-1,n-1] записать Cells[k,n].

Контрольные вопросы: Для чего предназначен компонент StringGrid? Основные свойства компонента StringGrid.

Задания:

Разработать форму, на которую поместить следующие компоненты: компонент StringGrid, компонент OpenDialog, поле ввода Edit1 и две кнопки Button. Организовать работу следующим образом: при выборе первой кнопки происходит открытие диалогового окна Открыть файл, после выбора необходимого файла и нажатия кнопки Ok, данные из выбранного текстового файла отображаются в компоненте StringGrid. При выборе второй кнопки происходит поиск необходимой информации.

Варианты заданий:

1. Адресное бюро.

2. Аэропорт.

3. Туристическое агентство.

4. Библиотека.

5. Регистрационный пункт ГИБДД.

6. Продовольственный магазин.

7. Брокерская фирма.

8. Ботанический сад.

9. Морская компания.

10. Образовательные учреждения.

11. Рекламное агентство.

12. Детские оздоровительные лагеря.

ВОПРОСЫ:

1. Свойства компонента StringGrid

2. Методы компонента StringGrid