procedure TForm1.FormCreate (Sender: TObject);
: string - мінлива filename пов'язує шлях і ім'я файлу
Ця процедура виконується відразу ж після відкриття форми і йде заповнення даних відповідно до варіанту.
Memo1.Text: ='';
Memo1.Lines.Add ('Є два елеватори, в яких зосереджено відповідно 4200 і 1200 т зерна. Зерно необхідно перевезти трьом хлібозаводам в кількості 1000,2000,1600 т кожному. Відстань від елеватора до хлібозаводів вказано в таблиці. Витрати на 1т/км - 25 Д.Е ');. Text: = '4200';. Text: = '1200 ';
Запис запасов.Text: = '1000 '. Text: = '2000'; 16.Text: = '1600 ';
запис потреб
Edit17.Text: = '25 ';
запис витрат на одиницю
Edit1.Text: = '20 ';. Text: = '30';. Text: = '50 ';. Text: = '60';. Text: = '20 ';. Text: = '40 ';
Присвоєння планом перевезень та осередків з відповідями значення В«0В»
Edit4.Text: = '0 ';. Text: = '0'; 13.Text: = '0 ';
Створюється одиничний OLE об'єкт. І програма відкриває Excel файл, який робить всі обчислення: = CreateOleObject ('Excel.Application'); Функція повертає посилання на об'єкт, що представляє собою змінну типу variant. Результатом виконання даної процедури буде запуск програми Excel на виконання. p align="justify"> filename: = ExtractFilePath (Application.ExeName) + ' TZ.xlsm'; - Витягує з повного імені файлу виконуваний файл.
Ap.Workbooks.Open (filename); TForm1.Button1Click (Sender: TObject);
змінні zap, pot: real - для записування результату суми запасів, і суми потреб.
Процедура натискання на кнопку рахувати. Відразу після натискання виконується умова перевірки на баланс. Якщо сума запасів більше або дорівнює сумі потреб, то програма продовжить виконання далі. А якщо сума запасів менше сумі потреб програма видасть помилку. p align="justify"> Умова виконання завдання
= pot) then - умовний оператор виконує умову
else
Висновок помилки
MessageBox (0, 'Завдання не може бути вирішена', 'Помилка', MB_OK);
Після перевірки на баланс і при виконанні умови відбувається записування даних з програми в Exel файл
Ap.Range ['E7']: = strtofloat (Edit1.Text);
Ap.Range - для завдання об'єкта, асоційованого з областю осередків.
Ap.run ('makros1') - Безпосереднє виконання макросу.
...
