Interface. 7. Перейти на страницу главная и создать заготовку процедуры нажав дважды на кнопку запуска на этой странице

uses;

7. Перейти на страницу главная и создать заготовку процедуры нажав дважды на кнопку запуска на этой странице.

Написать процедуру чтения данных из файла таблиц Excel в следующей последовательности:

а) создать раздел описания переменных после заголовка процедуры перед началом основной части, написав var (точку с запятой в коде процедуры после слово var не ставить);

б) в созданном разделе описания переменных предусмотреть использования следующих переменных:

str,s:string[80];

i,j,k: word;

VExcel:Variant; {}

x,y,a1:real;

в) в основной части процедуры (после первой открывающей скобки begin вставить следующий программный код, открывающий доступ к таблице Excel:

//Для чтения данных следует запустить Excel

Try

//Проверяем, нет ли запущенного Excel

VExcel:= GetActiveOleObject('Excel.Application');

Except

//если нет, то запускаем

on EOLESysError do

VExcel:= CreateOleObject('Excel.Application');

end;

VExcel.Visible:= false;

//Открывать Excel на полный экран

VExcel.WindowState:= -4137;

// не показывать предупреждающие сообщения

VExcel.DisplayAlerts:= False;

//открываем рабочую книгу (нужный файл таблиц Excel)

if dlgOpen1.Execute

then VExcel.WorkBooks.Open(dlgOpen1.FileName);

этот фрагмент кода запускает Excel и открывает доступ к указанному файлу Excel. Сами таблицы не будут видны, поскольку свойству видимость (Visible) присвоено значение ложь. Чтобы сделать таблицы Excel видимыми, нужно в строке VExcel.Visible:= false; заменить false на true.

Если открывать на весь экран таблицы Excel нет необходимости, то в начале строки, следующей за комментарием

//Открывать Excel на полный экран

Следует поставить две наклонные черты, которые превращают выполняемую команду в неисполняемый комментарий.

Если таблицы Excel не запущены, то при первом запуске программы возникнет ошибка. При повторном запуске ошибки уже не будет возникать.

г) вставить строку вывода в поле мемо типа:

memo2.Lines.Add('Промежуточная проверка написания кода программы');

запустить программу на исполнение и исправить ошибки;

д) вставить в код строки присвоения текстовой информации из ячеек а1 и b1 таблицы Excel текстовым переменным

str:=VExcel.WorkSheets[1].Cells[1,1];

s:=VExcel.WorkSheets[1].Cells[1,2];

и вывести эти строки в поле мемо

memo2.Lines.Add('a1= '+str+' b1= '+s);

и таблицу

Strngrd1.Cells[1,1]:=str;

Strngrd1.Cells[2,1]:=s;

Запустить программу на исполнение и убедиться в правильности чтения и вывода информации.

Лабораторная работа 6

Расчет энергетического баланса подстанции и выбор АВН