ont.Size:=14;Stringgrid5.Cells[0,n- 2]=StringGrid5.Cells [1, n - 2] then d:=m + 1
else d:=m + 2; .Caption:= Щоб отримати максимальний прибуток, обладнання потрібно змінити через + IntToStr (d) + року (рік/років). raquo ;;
N16.Enabled:=False;.Enabled:=False;.Enabled:=True;.Enabled:=True;.Options:=StringGrid6.Options;.Options:=StringGrid6.Options;.Options:=StringGrid6.Options;.Options:=StringGrid6.Options;.Options:=StringGrid6.Options;.Color:=clActiveBorder;.Color:=clActiveBorder;.Color:=clActiveBorder;nlt;=3 then.Enabled:=False; MessageDlg ( Показати розрахунки? + # 10 # 13, MtConfirmation, [mbYes, mbNo], 0)=mrYes then.Enabled:=true; .RowCount:=5; .RowCount: =3; .Show; .Show; .Enabled:=true ;;;;; TForm1.N13Click (Sender: TObject) ;: System.Text;, j: integer; .Filter:= Файли завдання про заміну обладнання ( * .zzo) | * .zzo raquo ;; SaveDialog1.Execute then Begin (f, SaveDialog1.FileName); (F); i:=0 to 1 doj:=0 to StringGrid3.ColCount + 1 do (f, StringGrid3.Cells [j, i]) ;; (f) ;;; TForm1.N5Click (Sender: TObject) ;, j, n: integer;: System.Text; VIC;:=StrToInt (Edit1.Text); MessageDlg ( Зберегти файл? + # 10 # 13, MtConfirmation, [mbYes, mbNo], 0)=mrYes then.Filter:= Файли завдання про заміну обладнання (* .zzo) | * .zzo raquo ;; SaveDialog1.Execute then (f, SaveDialog1.FileName); (F); i:=0 to 1 doj:=0 to StringGrid3.ColCount + 1 do (f, StringGrid3.Cells [j, i]) ;; (f) ;;: For i:=0 to n doj:=0 to n do.Cells[j,i]:=laquo;raquo;;.Cells[j,i]:=laquo;raquo;;;.RowCount:=2;.Checked:=False;.Enabled:=False;.Caption:=laquo;raquo;;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Enabled:=False;.Enabled:=False;.Enabled:=True;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;VIC;;TForm1.N16Click(Sender: TObject);,j,n:integer;:=StrToInt(Edit1.Text);.Cells[0,0]:=laquo;Годыraquo;;.Cells[0,1]:=laquo;R(t)raquo;;.Cells[0,2]:=laquo;L(t)raquo;;.Cells[0,3]:=laquo;R-Lraquo;;i:=0 to n doj:=0 to n do.ColCount:=n+1;.Width:=((n+1)*48)+i;.RowCount:=3;.Height:=27*3;.ColCount:=n+1;.Width:=((n+1)*48)+i;.Cells[j,0]:=IntToStr(j);;.Height:=2*27;.ColCount:=2;.Width:=2*48;.RowCount:=3;.Height:=3*27;.Enabled:=True;.SetFocus;.Enabled:=True;.Enabled:=True;.Caption:=laquo;raquo;;;TForm1.N22Click(Sender: TObject); N22.Checked then.Checked:=false;.RowCount:=3;.RowCount:=2;.Hide;.Hide;.Checked:=true;.RowCount:=5;.RowCount:=3;.Show;.Show;;;TForm1.N10Click(Sender: TObject) ;. Show ;; TForm1.N11Click (Sender: TObject) ;. ShowModal ;; TForm1.N4Click (Sender: TObject) ;: Textfile;, j: integer;: string; .Filter:= Файли завдання про заміну обладнання * .zzo raquo ;; OpenDialog1.Execute then (f, OpenDialog1.FileName); (f); Not Eof (f) doi:=0 to StringGrid3.RowCount + 1 doj:=0 to StringGrid3.ColCount + 1 do (f , t) ;. Cells [j, i]:=t ;;; (f) ;;; TForm1.N9Click (Sender: TObject) ;. Show ;; TForm1.Edit1KeyPress (Sender: TObject; var Key: Char); (Key lt; 0 ) or (Key gt; 9 ) then Key:=# 0 ;; TForm1.Edit2KeyPress (Sender: TObject; var Key: Char); (Key lt; 0 ) or (Key gt ; 9 ) then Key:=# 0; .Enabled:=True; .Font.Color:=clBlue;
Label2.Font.Size:=12; .Caption:= Для продовження натисніть клавішу F8, або скористайтеся пунктом меню ОПЕРАЦІЇ ОПТИМІЗАЦІЯ. raquo ;;; TForm1.Edit1Exit (Sender: TObject); Edit1.Text= laquo ; then
Begin ( Повинно бути введено якесь значення! , mtError, [mbOK], 0);
Edit1.SetFocus ;;; TForm1.Edit2Exit (Sender: TObject); Edit2.Text= then
Begin ( Повинно бути введено якесь значення! , mtError, [mbOK], 0);
Edit2.SetFocus ;;; TForm1.StringGrid3KeyPress (Sender: TObject; var Key: Char) ;: Integer; (Key lt; 0 ) or (Key gt; 9 ) then Key:=# 0; :=StrToInt (Edit1.Text); (StringGrid3.Cells [n, 1] lt; gt; ) and (keyo) then.Font.Color:=clBlue; .Font.Size:=12; .Caption := Щоб побачити результат натисніть кнопку F9, або виберіть пункт меню ОПЕРАЦІЇ РОЗРАХУНОК. raquo ;;;; TForm1.N26Click (Sender: TObject) ;. Show ;; TForm1.N25Click (Sender: TObject) ;: System.Text ;, j: integer;: string; .Filter:= Файли звіту (* .zoo) | * .zoo raquo ;; SaveDialog1.Execute then Begin (f, SaveDialog1.FileName);
Rewrite (F);:=InputBox ( Робота із звітом , Введіть заголовок звіту: , );
Writeln (f, g); (f); (f, Label1.Caption); (f, Edit1.Text); (f, Label3.Caption); (f, Edit2.Text); i:=0 to 1 do (f); j:=0 to StringGrid5.ColCount + 1 do (f, StringGrid3.Cells [j, i], ) ;;; (f); i:=0 to StringGrid5.RowCount +1 do (f); j:=0 to StringGrid5.ColCount + 1 do (f, StringGrid5.Cells [j, i], ) ;;; (f); (f, Label2.Caption); (f) ;;;.
Код другого формиUnit2;
interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,, jpeg, ExtCtrls;=class (TForm): TImage ;: TTimer; Timer1Timer (Sender: TObject);
{Private declarations}
{Public ...
