--------------------------
# endif
Файл: Report.cpp
/ / ---------------------------------------------------------------------------
# include
# pragma hdrstop
# include «Report.h»
# include «DataModule.h»
/ / ---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource «*. dfm» * ReportForm;
/ / ---------------------------------------------------------------------------
__fastcall TReportForm :: TReportForm (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__fastcall TReportForm :: DBGrid1CellClick (TColumn * Column)
{> Clear ();> Lines-> Add (DM-> ReportTable-> FieldByName («Comments») -> AsString);
}
//---------------------------------------------------------------------------__fastcall TReportForm :: FormActivate (TObject * Sender)
{> Text=DateToStr (Date ());> ReportTable-> Filter=AnsiString («Date="") + EDate-> Text + AnsiString (« »»);
}
//---------------------------------------------------------------------------__fastcall TReportForm :: Button1Click (TObject * Sender)
{> ReportTable-> Filter=AnsiString («Date="") + EDate-> Text + AnsiString (« »»);
}
//---------------------------------------------------------------------------__fastcall TReportForm :: Button2Click (TObject * Sender)
{> ReportTable-> Delete (); (this);
}
/ / ---------------------------------------------------------------------------
Файл: SerialLink.h
/ / ---------------------------------------------------------------------------
# ifndef SerialLinkH
# define SerialLinkH
/ / ---------------------------------------------------------------------------
# include
//---------------------------------------------------------------------------SerialLink : Public TThread
{:: __fastcall Execute ();:
__fastcall SerialLink (bool CreateSuspended); __fastcall DecodePacket (void);
};
/ / ---------------------------------------------------------------------------
# endif
Файл: SerialLink.cpp
/ / ---------------------------------------------------------------------------
# include
# pragma hdrstop
# include «SerialLink.h»
# include «GlobalVariables.h»
# pragma package (smart_init)
/ / --------------------...