Заголовочник с нужным классом.
| Код |
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "sport.hpp"
#include "master.hpp"
#include "exept.hpp"
#include <Grids.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
#include <DBCtrls.hpp>
#include <list>
#include <algorithm>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Enter_1;
TButton *Enter_2;
TMainMenu *MainMenu1;
TMenuItem *File1;
TMenuItem *Exit1;
TMenuItem *Help2;
TMenuItem *SearchforHelpOn2;
TMenuItem *About1;
TPanel *Panel1;
TStringGrid *StringGrid2;
TStringGrid *StringGrid1;
TMenuItem *Save;
TMenuItem *First;
TMenuItem *Second;
TButton *Button1;
TButton *Button2;
TBevel *Bevel1;
TButton *Button3;
TButton *Button4;
TLabel *Label1;
TLabel *Label2;
TButton *Button5;
TButton *Button6;
TEdit *Edit1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall Enter_1Click(TObject *Sender);
void __fastcall Enter_2Click(TObject *Sender);
void __fastcall Exit1Click(TObject *Sender);
void __fastcall SearchforHelpOn2Click(TObject *Sender);
void __fastcall About1Click(TObject *Sender);
void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y);
void __fastcall FormMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y);
void __fastcall FormDblClick(TObject *Sender);
void __fastcall FirstClick(TObject *Sender);
void __fastcall SecondClick(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button5Click(TObject *Sender);
void __fastcall Button6Click(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
master_t
ob_1,
ob_2;
exept_t
ob;
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
int
StartX,
StartY;
bool
get = false,
get_1 = false;
int
metka = 0,
ctr = 0,
ctr_2 = 0,
ctr_3 = 20,
ctr_4 = 0;
float
ctr_1;
std :: list <master_t> obj_1;
std :: list <master_t> obj_2;
std :: list <master_t> :: iterator p_1 = obj_1.begin();
std :: list <master_t> :: iterator p_2 = obj_2.begin();
//---------------------------------------------------------------------------
#endif
|
Файл, в котором его нужно использовать.
| Код |
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit5.h"
#include "sport.hpp"
#include "master.hpp"
#include "exept.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
Label1->Caption = "Àäðåñ ñîõðàíåíèÿ";
Label2->Caption = " Èìÿ ôàéëà";
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn1Click(TObject *Sender)
{
// ob_1.set_data( obj_1, date, time_val );
}
//---------------------------------------------------------------------------
|
|
)