Читать курсовая по информационному обеспечению, программированию: "Программный комплекс для определения константы скорости химической реакции" Страница 7

(Назад) (Cкачать работу)

Series4->Clear();

Series5->Clear();

// Вывод сообщения об ошибке

Application->MessageBox(str, "Ошибка", MB_ICONERROR | MB_OK);

}

catch(EConvertError&)

{

// ?Вывод сообщения об ошибке

Application->MessageBox("Не правильный тип данных", "Ошибка",

MB_ICONERROR | MB_OK);

delete[]y;

delete[]x;

}(...)

{

//Выводсообщенияобошибке>MessageBox("НЕ известная ошибка", "Ошибка", _ICONERROR | MB_OK);

}

}__fastcall TForm1::Button2Click(TObject *Sender)

{->Close();

}.h

#ifndef Unit1H

#define Unit1H

#include

#include

#include

#include

#include

#include

#include

#include

#include

#include

#include TForm1 : public TForm

{

__published:// IDE-managed Components

TPanel *Panel1;

TGroupBox *GroupBox1;

TLabeledEdit *LabeledEdit1;

TLabeledEdit *LabeledEdit2;

TChart *Chart1;

TUpDown *UpDown1;

TLabeledEdit *LabeledEdit3;

TStringGrid *StringGrid1;

TButton *Button1;

TButton *Button2;

TPointSeries *Series1;

TLabeledEdit *LabeledEdit4;

TLineSeries *Series5;

TLineSeries *Series4;

TLineSeries *Series3;

TLineSeries *Series2;

TPointSeries *Series6;

void __fastcall FormCreate(TObject *Sender);

void __fastcall UpDown1Click(TObject *Sender, TUDBtnType Button);

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);:// User declarations:// User declarations

double k, n, d, r;

__fastcall TForm1(TComponent* Owner);

};PACKAGE TForm1 *Form1;

#endif.cpp

#include

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form2;

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm2::FormShow(TObject *Sender)

{

LabeledEdit2->Text = FloatToStrF(Form1->n, ffGeneral, 4, 4);

LabeledEdit3->Text = FloatToStrF(Form1->k, ffGeneral, 4, 4);

LabeledEdit1->Text = FloatToStrF(Form1->d, ffGeneral, 4, 4);

LabeledEdit4->Text = FloatToStrF(Form1->r, ffGeneral, 4, 4);

}__fastcall TForm2::Button1Click(TObject *Sender)

{->Close();

}.h

#ifndef Unit2H

#define Unit2H

#include

#include

#include

#include

#include TForm2 : public TForm

{

__published:// IDE-managed Components

TGroupBox *GroupBox1;

TLabeledEdit *LabeledEdit1;

TLabeledEdit *LabeledEdit2;

TLabeledEdit *LabeledEdit3;

TLabeledEdit *LabeledEdit4;

TButton *Button1;

void __fastcall FormShow(TObject *Sender);

void __fastcall Button1Click(TObject *Sender);:// User declarations:// User declarations

__fastcall TForm2(TComponent* Owner);

};PACKAGE TForm2 *Form2;

#endif

.cpp

#include

#pragma hdrstop("Unit1.cpp", Form1);("Unit2.cpp", Form2);WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1);

Application->CreateForm(__classid(TForm2), &Form2);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

catch (...)

{

try

{

throw Exception("");

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

}

return 0;

}

Похожие работы