Курсовая работа: Расчет механизма подъема

Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);

begin

form2.Hide;

form1.show;

end;

procedure TForm2.FormCreate(Sender: TObject);

var i:integer;

begin

for i:=1 to 16 do

stringgrid1.Cells[i-1,0]:=formatfloat('#0.0',unit1.mdk[i]);

for i:=1 to 16 do

stringgrid1.Cells[i-1,1]:=formatfloat('#000',unit1.msp[i]);

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

close

end;

end.

7. Описание программы

Программа состоит из 4 процедур:

procedure Button1Click(Sender: TObject)– предназначена для выполнения вычислений.

procedure Button2Click(Sender: TObject)– предназначена для очистки окон вывода результатов расчетов.

procedure Button3Click(Sender: TObject)– предназначена для завершения работы приложения

procedure Button4Click содержит разделы констант, переменных и раздел операторов основной программы.