85
{
__published: // IDE-managed Components
TPanel *MainPnl;
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
TPanel *QtyPnl;
TPanel *TruePnl;
TPanel *BallsPnl;
TPanel *ActionPnl;
TButton *RepeatBt;
TButton *CloseBt;
void __fastcall FormShow(TObject *Sender);
void __fastcall CloseBtClick(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall RepeatBtClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TResultForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TResultForm *ResultForm;
//---------------------------------------------------------------------------
#endif
UResult.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UResult.h"
86
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TResultForm *ResultForm;
//---------------------------------------------------------------------------
__fastcall TResultForm::TResultForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TResultForm::FormShow(TObject *Sender)
{
int balls = (int)(((float)qtyTrue / (float)qty) * 100.0);
int n;
int *mas = openProfile(currentProfile, n);
int *newMas = new int[n+1];
for(int i = 0; i < n; i++)
{
newMas[i] = mas[i];
}
newMas[n] = balls;
saveProfile(currentProfile, newMas, n+1);
QtyPnl->Caption = IntToStr(qty);
TruePnl->Caption = IntToStr(qtyTrue);
BallsPnl->Caption = IntToStr(balls);
}
//---------------------------------------------------------------------------
void __fastcall TResultForm::CloseBtClick(TObject *Sender)
{
Close();
}
87
//---------------------------------------------------------------------------
void __fastcall TResultForm::FormClose(TObject *Sender,
TCloseAction &Action)
{
TestForm->Close();
}
//---------------------------------------------------------------------------
void __fastcall TResultForm::RepeatBtClick(TObject *Sender)
{
Hide();
TestForm->Show();
}
//---------------------------------------------------------------------------