Delphi. Страница Additional. Васильев В.В - 18 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

18
15. Удалите надпись BitBtn5
Свойство Caption
16. Положите на кнопку стандарт-
ную гравировку -
Свойство Glyph. Кнопка Load. Файл
fileopen.bmp. Кнопки Open и ОК
17. Положите ниже сетки строк
кнопку BitBtn7
Страница Additional
18. Удалите надпись BitBtn5
Свойство Captio
19. Положите на кнопку стан-
дартную гравировку -
Свойство Glyph. Кнопка Load. Файл
help.bmp. Кнопки Open и ОК
Напишем обработчик нажатия кнопки Помощь, клик по которой будет
выводить окно с известной фразой «Если долго мучиться, что-нибудь по-
лучится!» и одной кнопкой ОК.
20. Напишите об-
работчик события
OnClick кнопки
BitBtn7 – По-
мощь
procedure TAdditionalTab.BitBtn7Click
(Sender: TObject);
begin
ShowMessage('Если долго мучиться,
что-нибудь получится!');
end;
Сделаем часть проекта, обеспечивающую запись содержимого сетки
строк в файл people.dat по нажатию кнопки BitBtn5 и считывание содержи-
мого этого файла в сетку строк по нажатию кнопки BitBtn6. Ввиду того, что
в нашей сетке всего три строки, для корректного отображения данных
файл должен содержать не более трех записей о сотрудниках.
Программный
код будет содержать переменные и типы, которые не-
обходимо описать в интерфейсной части модуля. Тип stroka_grid опи-
сывает запись с текстовыми полями fio, job, division, city, phone,
money. Тип fff – это файл из записей stroka_grid. В разделе описа-
ния переменных объявлены глобальные переменные – FileSave файло-
вого типа fff, запись text_str
типа stroka_grid, целочисленный
счетчик записей Cur_Rec, целочисленные индексы массива x,y. Стро-
ковая переменная FileName содержит полное имя файла с записями о со-
трудниках.
21. Опишите нужные
типы и переменные,
вставив код перед
автоматически соз-
данным служебным
словом var
type
stroka_grid=record
fio:string[25];
job:string[25];
division:string[20];
city:string[20];
phone:string[7];
money:string[10]
end;
fff=file of stroka_grid;
var FileSave:fff;
FileName:string;
text_str:stroka_grid;

Страницы